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Vorwort 


Das vorliegende Buch soll zeigen, wie man mit der Sprache FORTH 
Anwendungen programmieren kann. Es werden Beispiele für forma- 
tiertes Ausdrucken, für den Aufbau von Datenstrukturen, Rechnungs- 
schreiben und für künstliche Intelligenz gebracht. 


In FORTH geschriebene Programme zeigen meist einen persönlichen 
Programmierstil. Deshalb sollen die vorliegenden Programme haupt- 
sächlich Anregungen zum selbstständigen Programmieren sein. 


Das reine Abtippen dürfte nicht die richtige Art sein, das Program- 
mieren in FORTH zu üben. Es ist besser, die Programmidee zu ver- 
stehen, und sie dann mit eigenen ’"Worten‘' zu programmieren. 

Wenn ein gewisser Grundvorrat an definierten Worten vorliegt, dann 
kann man sehr schnell, wie es in keiner anderen Sprache möglich ist, 


Programme auf spezielle Anwendungen anpassen. 


Dem Leser wünsche ich viel Spaß mit FORTH. 


Holzkirchen, Sommer 1984 Ekkehard Flögel 


Inhaltsverzeichnis 


1: Einleitung 2.2... 2. ansehen 1 
2. Ein- und Ausgabe von Zahlen und Texten... .....:2ccnn0000. 5 
2.1 Eingabe von Daten ..... sn cos senneneaneneeeen een 5 
2.2 Ausgabe von Daten... ..... 222202 eoeenennererren nee 9 

3. Zeichenketten in FORTH..........:222cnene error unnn 15 
4. Datenstrukturen .... 2222222 sen en nennen nennen nenn 23 
4.1 Verkettete Listen ... 2... ce seeseeeeeneeerreennen en 23 
4.2 Binäre Bäume .....--enneensnnennenn ern eeee re ne 34 

5. Ein Beispiel für künstliche Intelligenz ........ 2. 2ccceee20.. 53 
5.1 Entscheidungsbäume. .. 2... cz aan nennen nennen ee 53 
5,2 -ASSBZIALIONEN. u 2 ee errrene 59 

6. Hilfen für die Programmentwicklung..........2s222ses00n. 63 
6.1 Breakpoint 00a 0a Sea se nn ea et 63 
6.2 Ein komfortabler Decompiler........ 2222220 oeeeerenn 64 
6.3 Suchen von Worten in Textfeldern ....... 2.2222 e0200: 68 
6.4 Beispiel Stichwortkartei ..... 222 esse eueeeneneneenn ne 71 

7. Sinustabelle mit Turtiegrafik........----- none eonennenn 75 
8..Rekürsion ... 4.00 nenn ee ee ne 81 
8.1 Die Türme von Hanoi .........222esseereereenenne nn 81 
8.2 Das FORTH-Programm. .... 2.2222 2seeeeeerenserne nn 88 

9. Adressverwaltung mit Rechnungsschreiben........ 222.20. 95 
10. Ein kleines Spielchen. .........2s2csoeseeseerernnnn nen 121 
11. Der 6502 Assembler von W. F.Ragsdale.........ccceecc0. 127 
12. Analog-/Digital-Wandlung mit einem Digital-/Analog-Wandler. . 143 
13. Rechnerkopplung über RS232.........-.2rrecrereneneen 147 
14. BUSIPACK : 2: 2.2 en ES 155 


Einleitung 


Die Sprache FORTH wurde in den letzten Jahren benutzt, um einige 
Anwendungen aus der Praxis zu programmieren. Dabei wurde für die 
Programmentwicklung ein Wortevorrat entwickelt, der in allen Pro- 
grammen benutzt wird. Dies sind vor allem Worte, die für den Daten- 
austausch zwischen Benutzer und Rechner oder Rechner und Peripherie 
benötigt werden. Ein Großteil des Programmieraufwandes muß in 
diese Programmteile gesteckt werden, um den Umgang mit einem 
Programm möglichst einfach zu gestalten. Aus diesem Grund sind im 
zweiten Kapitel Worte zusammengestellt, um Daten und Texte in den 
Programmablauf eingeben zu können. Auch für die Ausgabe von Dater. 
auf den Bildschirm und auf den Drucker werden speziell definierte 
Worte benötigt. 


Das dritte Kapitel zeigt eine Möglichkeit, Zeichenketten in FORTH zu 
definieren. Hier sind natürlich Worte zum Suchen und Vergleichen 
von Zeichenketten sehr wichtig. Für die Programmierung von Karteien 
und Inventarverzeichnissen sind gewisse Datenstrukturen notwendig. 
Im vierten Kapitel sind deshalb Worte zum Aufbau von verketteten 
Listen und zum Aufbau von binären Bäumen beschrieben. 


Das nächste Kapitel wurde von Herrn Dr. Schmitter .bearbeitet und 
zeigt ein Beispiel für künstliche Intelligenz. Hier werden Entscheidungs- 
bäume aufgestellt und Worte zu Associationen zusammengefasst. 


Das Fehlersuchen in Programmen ist oft mühevoll und lästig. Einige 
Erleichterungen sind in Kapitel sechs angegeben. Hier wird gezeigt, 
wie ein Wort im Wörterbuch gesucht werden kann und wie ein defi- 
niertes Wort dekompiliert wird. 


Es folgen eine Sinustabelle und die Angabe von Verfahren zur Pro- 
grammierung von Rekursionen. 


Im nächsten Kapitel ist eine vollständig programmierte Anwendung 
angegeben. Unter Verwendung einer Adressverwaltung kann leicht ein 
Programm zur Abonnementverwaltung realisiert werden. 


Diese Beispiele werden noch ergänzt durch ein kleines Spielprogramm. 


Weiter soll noch das Arbeiten mit dem 6502 Assembler von W. F. 
Ragsdale gezeigt werden. 

Es wird eine Rechnerkopplung mit RS232 und Interruptsteuerung und 
die Steuerung eines Analog-Digitalwandlers beschrieben. 


Zum Schluß ist noch ein vollständiges Programmpaket BUSIPACK 
angegeben. Hier wird eine Adressverwaltung, kombiniert mit einer 
Lagerverwaltung und einem Programmteil zum Schreiben von 
Rechnungen veröffentlicht. 


Die in diesem Buch verwendete FORTH-Version entspricht der Fig- 
FORTH Version 1.1. Der Umfang des Wörterbuches entspricht den 
Worten, wie sie in der FORTH Encyclopedia von Mitch Derick und 
Linda Baker beschrieben sind. Dazu kommen noch Worte zur Ver- 
arbeitung doppelt langer Zahlen. Diese sind in der folgenden Ab- 
bildung angegeben. 


Es ist versucht worden, die verwendeten Programme möglichst rechner- 
unabhängig zu machen. Das ist vor allem dann nicht mehr möglich, 
wenn es sich um eine formatierte Ausgabe auf den Bildschirm handelt. 
Im Anhang sind für einige Rechner die Worte für die Cursorsteuerung, 
Bildschirm löschen und andere maschinenspezifische Befehle ange- 
geben. 


EWORDS EF) 
2@ [ A-D) DUP 2 + @ SWAP @ ; 


» 2! ( DA) SWAP OVER ! 2 + |; 
: @+l ( DA) DUP >R 2@ D+ R> 21; 


: 2DROP DROP DROP ; 

: 2SWAP ROT >R ROT R> ; 

: EPDUP OVER OVER ; 

: 2SOVER >R >R 2EDUP R> R> 2SWAP ; 


1.1 Worte für doppelt lange Zahlen 


Notizen 


Ein- und Ausgabe 
von Zahlen 
und Texten 


Jedes Programm benötigt Daten, die in den Rechner eingegeben werden 
und gibt selbst Daten auf den Bildschirm oder auf ein anderes Peri- 
pheriegerät aus. In FORTH kann man für diesen Datentransfer den 
Speicherbereich PAD verwenden. Aber auch andere Lösungen sind 
denkbar. 


2.1 Eingabe von Daten 
Ein kleines Warenverzeichnis hat folgenden Aufbau: 


Bezeichnung 19 Stellen 
Anzahl 4 Stellen 
Preis 7 Stellen 


Durch eine passende Eingabe wird ein Datensatz in PAD zusammen- 
gesetzt und anschließend auf Diskette gespeichert. 


Die Länge des Datensatzes ist 30 Bytes. Durch die Blockstruktur der 
Datenaufzeichnung auf Diskette muß die Datensatzlänge ein ganz- 
zahliger Teil von 256 oder 1024 sein. Als Länge wird deshalb 32 Bytes 
gewählt. Die nicht gebrauchten 2 Byte werden in einem späteren 
Beispiel benötigt. Die folgende Abbildung 2.1 zeigt den Aufbau des 
Datensatzes in PAD. 


PAD PAD+19 PAD+23 


2.1 Aufbau eines Datensatzes in PAD 


Alle Eingaben werden als Zeichenketten eingegeben. Die Bezeichnung 
kann beliebiger Text sein. Für die Eingabe der Anzahl sind nur die 
Ziffern O bis 9 erlaubt und bei der Eingabe kann noch ein Dezimal- 
punkt mit eingegeben werden. 


Für die Eingabe werden folgende Worte vereinbart: 


: S-EIN ( A) 13 WORD HERE COUNT 
ROT PAD + SWAP CMOVE : 


D S-EIN KERNSEIFE DK 
PAD 10 TYPE KERNSEIFE OK 


Das Wort S-EIN erwartet auf dem Stapel die relative Adresse zu PAD, 
ab welcher die folgende Zeichenkette gespeichert wird. Diese Zeichen- 
kette wird nur durch ein Leerzeichen getrennt direkt hinter dem Wort 
S-EIN eingegeben. Diese Eingabe hat aber den Nachteil, daß die Länge 
der Eingabe nur durch das RETURN-Zeichen begrenzt ist. Da das 
nächste Wort nach PAD+19 geschrieben wird, werden Teile der Be- 
zeichnung, wenn sie zu lang sind, überschrieben. 


Dies wird bei dem folgenden Wort vermieden. 


: IP { NA) PAD + SWAP EXPECT ; 


5 10 IP HEUTE OK 
PAD 10 + 5 TYPE HEUTE OK 


Das Wort IP verlangt zwei Angaben, die Länge der Eingabe N und die 
relative Adresse zu PAD, auf dem Stapel. Die Eingabe wird nach N 
Zeichen oder nach RETURN abgebrochen. Der Text wird ab PAD+A 
gespeichert. 


Eine dritte Art der Eingabe ist die Verwendung des Wortes KEY. Dabei 
kann jedes eingegebene Zeichen geprüft werden. Diese Eingabe erfolgt 
nun nicht nach PAD, sondern an einen anderen festen Platz SPAD. Die 
Adresse von SPAD ist PAD+RECLEN, wobei RECLEN die Länge des 
Datensatzes ist. 


Das Wort ?Z überprüft, ob das eingegebene Zeichen größer 47 und 
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kleiner 58 ist. Nur dann ist es eine Ziffer. Anstatt mit IF...ELSE... 
THEN zu verzweigen, werden mit AND die beiden Abfrageergebnisse 
zusammengefasst. 


32 CONSTANT RECLEN 
1 VARIABLE CNT 
: SPAD ( -A) PAD RECLEN + ; 
: ?Z ( N-NF) DUP 47 > OVER 58 < 
AND ; 
: N>P D SPAD CI! 1 CNT ! 32 SPAD 
C! BEGIN KEY DUP 13 = NOT 
WHILE ?Z IF DUP EMIT SPAD 
CNT@ +CI 1ICNT +! 
ELSE DROP THEN REPEAT 
CNT @ SPAD CI 32 CNT @ SPAD 
+ C! DROP ; 


Das Wort N)P übernimmt eine Zeichenkette vom Tastenfeld und 
speichert sie ab SPAD+1 ab. Alle Zeichen, die keine gültigen Ziffern 
darstellen, werden unterdrückt. In das erste Byte von SPAD wird die 
um Eins erhöhte Länge der Zeichenkette gespeichert. Das letzte 
Zeichen ist ein Leerzeichen. Damit ist diese Zeichenkette für die 
Ausgabe mit COUNT TYPE vorbereitet. 


N>P 12345 OK 
SPAD COUNT TYPE 12345 OK 


Gleichzeitig kann mit NUMBER diese Zeichenkette in eine doppelt 
lange Zahl gewandelt werden. Das Wort NUMBER erwartet auf dem 
Stapel die Anfangsadresse der zu wandelnden Zeichenkette und über- 
gibt eine doppelt lange Zahl. Die Zeichenkette muß mit einem Leer- 
zeichen abgeschlossen sein. Eine Fehlermeldung wird ausgegeben, wenn 
in der Zeichenkette ein Zeichen enthalten ist, das keine Ziffer dar- 
stellt. Davon ausgenommen ist das Minuszeichen und der Dezimal- 
punkt. 


SPAD NUMBER OK 
.S 
12345 D OK 


Das Wort P)P ist genauso definiert wie das Wort NP, nur wird hier 
noch der Dezimalpunkt mit zugelassen. 


: PSP O SPAD CI 1 CNT I 32 SPAD 

C! BEGIN KEY DUP 13 = NOT 
WHILE ?Z OVER 46 = OR 
IF DUP EMIT SPAD 
CNT@+CI A CNT +I 
ELSE DROP THEN REPEAT 

CNT @ SPAD C! 32 CNT @ SPAD 

+ C! DROP ; 


Nun können für die Eingabe in das Warenverzeichnis die folgenden 
Worte vereinbart werden: 


» SCLR SPAD RECLEN 32 FILL ; 

: PCLR PAD RECLEN 32 FILL ; 

ı BEZ> 19 0 IP; 

» ZA> SPAD N>P SPAD 1+ PAD 19 + 


4 CMOVE ; 
: PR> SPAD P>P SPAD 1+ PAD 23 + 
7 CMDYVE ; ;S 


Das Wort BEZ) speichert eine 19-stellige Bezeichnung ab Adresse 
PAD. ZA) speichert eine Zeichenkette, die nur Ziffern als gültige 
Zeichen ab Adresse PAD+19 enthält und das Wort PR) speichert eine 
Ziffernfolge mit Dezimalpunkt ab Adresse PAD+23. 


SCLR OK 

PCLR OK 

BEZ> SONNENBLUMEN OK 

ZA> 100 OK 

PR> 2.50 OK 

PAD 32 TYPE SONNENBLUMEN 100 2.50 OK 


In den beiden Worten N)P und ZIP gibt es bei der Eingabe keine 
Korrekturmöglichkeit. Diese muß für jeden Rechner gesondert pro- 
grammiert werden. Das liegt daran, daß bei den verschiedenen Home- 
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computern unterschiedlicher Code für das BACKSPACE-Zeichen 
verwendet wird. Ebenso wird die Cursorsteuerung unterschiedlich 
behandelt. Ein Beispiel für eine solche Programmierung zeigt das 
folgende Textfeld. Hier wurde die Korrektur mit der Backspacetaste 
durchgeführt und der Cursor mit —1 211 C! eine Stelle zurückgesetzt. 


SCR # 36 

0 ( INPUT WORDS ef) 
1 0 VARIABLE CNT 

2 : PADC PAD 128 32 FILL ; 

3 : ?Z Ü N-NF) DUP 47 > OVER 58 < 
4 AND OVER 46 = OR ; 

5 : (S) 32 C, -1 ALLOT ; 

6 : (Z> ( -D) CNT @ HERE OVER - 

7 SWAP O= NOT IF NUMBER ELSE 

8 DROP THEN ; 

9 : (Z>) CE -DI 1 CNT I (S) BEGIN 
10 KEY DUP 13 = NOT WHILE ?Z IF 
41 DUP EMITC, [S) 1 CNT +! ELSE 
12 20 = IF -1 ALLOT -1 CNT +1 (8) 
13 -1 2141 +1 THEN THEN REPEAT DROP 
14 (Z> CNT @ 1 - MINUS DP +1 ; 


Eingabe von Zahlen mit Korrekturmöglichkeit beim C-64 


2.2 Ausgabe von Daten 


Bei einigen Heimcomputern wird bei der Ausgabe des ASCII-Zeichens 
00 auf dem Bildschirm ein Grafiksymbol ausgegeben. Dies führt dann 
zu einem unschönen Bildschirmausdruck, wenn Text mit EXPECT 
eingegeben und mit TYPE wieder ausgedruckt wird. Durch das Wort 
ATYPE kann dies umgangen werden. 


: ATYPE -DUP IF OVER + SWAP 
DO I Ce 127 AND DUP D= 
IF DROP ELSE EMIT THEN 
LOOP ELSE DROP ENDIF ; 


Für die Formatierte Ausgabe auf dem Bildschirm oder einem Drucker 
werden die folgenden Worte definiert: 


DO VARIABLE H D VARIABLE V 


: ATYPE -DUP IF OVER + SWAP 
Do I C@ 127 AND DUP D= 
IF DROP ELSE EMIT 1 H +! THEN 
LOOP ELSE DROP ENDIF ; 


Es werden zwei Variable H und V vereinbart. In der Variablen H ist die 
horizontale Position und in V die vertikale Cursorposition oder die 
Position des Druckkopfes eines Druckers gespeichert. Die Variable 
H wird bei der Ausgabe eines Zeichens in ATYPE jeweils um Eins 
erhöht. Falls dieses Wort nicht benötigt wird, kann TYPE durch 
NTYPE ersetzt werden. 


: NTYPE DUP H +1 TYPE ; 
: HO UN) 0 DO SPACE 1 H +1 


LOOP ; 
: VE CN) 0 DO CR 1 V +1 LOOP 
DH |; 
: ADJ (N) H @ - DUP O > IF HO 
THEN ; 


2 RADJ ( ANN'N") SWAP ADJ SWAP 
DUP >R - HO R> ATYPE ; 


Das Wort HO gibt N Leerzeichen aus, während das Wort VE N Zeilen- 
vorschübe macht. Dabei wird gleichzeitig H auf Null gesetzt. Das Wort 
ADJ setzt den Druckkopf auf die horizontale Stelle N. 


Das Wort RADJ druckt einen Text, der ab der Adresse A mit der Länge 
N gespeichert ist, rechtsbündig in einer Spalte der Breite N’’ aus. Der 
Beginn der Spalte ist N’. 


OH! OK 

CR PAD 10 EXPECT 

123.45 OK 

PAD 6 10 20 RADJ 123.45 OK 
OH! OK 

PAD 10 EXPECT 1.23 OK 

PAD 4 10 20 RADJ 1.23 OK 
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Mas Wort TEX) druckt einen Text, der ab Adresse A mit der Länge N 
gespeichert ist, linksbündig ab der Stelle N’ aus. Mit diesen Worten er- 
hält man dann folgendes Druckbild: 


: TEX> U ANN') ADJ -TRAILING 
ATYPE ; 


PAD 9 EXPECT GUTEN TAG OK 


OH! OK 

PAD 9 5 TEX> GUTEN TAG OK 
OH ! OK 

PAD 9 8 TEX> GUTEN TAG OK 


In den meisten Fällen werden die zu druckenden Zahlen Ergebnisse 
einer Berechnung sein. Vor einem formatierten Ausdruck müssen 
diese Zahlen in Zeichenketten gewandelt werden. 


Die folgenden Worte zeigen einige Beispiele: 


:#N (dd) <# #5 #2 5; 
: #DM ( d) <# # # 46 HOLD #85 


#> ; 
: #% [ d) <# 37 HOLD # 46 HOLD 
#5 #> ; 


: #DA [ d) <# # # 46 HOLD # # 
46 HOLD #5 #> ; 


Einfach lange Zahlen müssen vor der Wandlung in eine doppelt lange 
Zahl gewandelt werden. Falls es sich um positive Zahlen handelt, wird 
einfach eine Null auf dem Stapel abgelegt. Sonst kann auch mit S-D ge- 
wandelt werden. Nach der Umwandlung in eine Zeichenkette ist die 
Anfangsadresse und die Länge dieser Zeichenkette auf dem Stapel. 


Mit RADJ kann diese Zahl passend im Ausdruck plaziert werden. 
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Sollten auf ein Formular Texte gedruckt werden, die immer gleich sind, 
so kann man diese Texte im Programm speichern. Muß später ein Text 
geändert werden, so ist das Programm neu zu kompilieren. Einfacher 
ist es, diese Texte auf Diskette zu speichern. Sie werden in einen nicht 
benötigten Block geschrieben und später von dort geholt und aus- 


N>P 1234 OK 
2 VE SPAD NUMBER #DM 5 15 RADJ 


12.34 OK 
N>P 12345 OK 
2 VE SPAD NUMBER #DM 5 15 RADJ 


123.45 OK 
N>P 280384 OK 


2 VE SPAD NUMBER #DA 5 TEX> 


28.03.84 OK 
N>P 140 OK 
2 VE SPAD NUMBER #% 5 TEX> 


14.0% OK 
N>P 1234567 OK 
2 VE SPAD NUMBER #N 5 15 RADJ 


1234567 OK 
N>P 34 OK 
& VE SPAD NUMBER #N 5 15 RADJ 


34 OK 


gedruckt. 
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: S>D { NA) BLOCK + 13 WORD HERE 
COUNT >R SWAP DUP R SWAP C! 
1+ R> CMOVE UPDATE ; 


» S<D ( NA) BLOCK + COUNT. TYPE ; 


: DTEX> Ü NAN') ADJ BLOCK + 
COUNT -TRAILING ATYPE ; 


Das Wort SD erwartet zwei Angaben auf dem Stapel. A ist die Nummer 
des Blockes, in welchen der Text geschrieben werden soll, und N ist die 
sum Blockanfang relative Adresse, ab welcher der Text gespeichert 
werden soll. In dem ersten Byte wird die Länge des Textes gespeichert. 


Das Wort SD holt den Text von der Diskette. Die Zahlen N und A 
Ihaben die gleiche Bedeutung wie beim Abspeichern. 


Mit DETX) wird der Text von der Diskette gelesen und linksbündig ab 
der Druckposition N‘ ausgegeben. 


36 S>D DIESER TEXT WIRD GESPEICHERT. OK 
356 S<D DIESER TEXT WIRD GESPEICHERT. OK 
36 S<D TEXT WIRD GESPEICHERT. OK 
VE 0 36 5 DTEX> 

DIESER TEXT WIRD GESPEICHERT. OK 
1 VE 0 36 10 DTEX> 
DIESER TEXT WIRD GESPEICHERT. OK 


0 
0 
7 
1 


Beim Eingeben von Text in die Textfelder können die folgenden 
Worte verwendet werden. 


Dabei werden die im Kernel definierten Worte (LINE) und .LINE 
verwendet. Die Definition von (LINE) ist: 


(LINE) (NN’-AN’) 


(LINE) übernimmt vom Stapel die Zeilennummer N und die Numer N’ 
des Textfeldes. Die Anfangsadresse der Zeile im Speicher und die Länge 
der Zeile bleiben auf dem Stapel. 


SCR ist eine Systemvariable, welche die Nummer des augenblicklichen 
Textfeldes enthält. Im Wort LIST wird die Nummer des Textfeldes 
in SCR gespeichert. 
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26 LIST 

SCR # 26 
0 ( TEXT AUF DISK CNTD 1.3 EF) 
1 
2 :P { N) SCR @ (LINE) OVER SWAP 
3 BLANKS D WORD HERE COUNT 32 
4 MIN ROT SWAP CMOVE UPDATE ; 
5 
6 
7 
B 


7 P TEXT NACH ZEILE 7 OK 
26 LIST 
SCR # 26 
0 ( TEXT AUF DISK CNTD 1.3 EF) 


: P UN) SCR @ (LINE) OVER SWAP 


BLANKS D WORD HERE COUNT 32 
MIN ROT SWAP CMOVE UPDATE ; 


TEXT NACH ZEILE 7 


on Ppwm- 


226 .LINE : P { N) SCR @ (LINE) OVER SWAP OK 


Nachtrag: 

Das auf Seite 6 angegebene Wort IP kann unter Umständen schon vor- 
handene Einträge in PAD überschreiben, da EXPECT Nullen an die 
Eingabe anhängt. Die Neudefinition von IP vermeidet dies. 


( IP NEU EF) 

: PADD PAD 128 + ; 

: PADDC PADD 128 32 FILL ; 

: IP { NA) PADDC OVER PADD SWAP 
EXPECT PAD + SWAP PADD ROT 
ROT CMOVE ; 
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Zeichenketten 
in FORTH 


In FORTH sind keine Worte für die Verarbeitung von Zeichenketten 
vorhanden. Diese können aber leicht definiert werden. Ausgehend von 
den Worten .' und (.‘‘) werden die Worte und [ “ ] definiert. 


HEX 
: ["] C -AL) R COUNT DUP 1+ R> 
+ RR; 


: "U -AL) 22 STATE @ IF COMPILE 
["] WORD HERE C@ 1+ ALLOT 
ELSE WORD HERE DUP C@ 1+ PAD 
SWAP CMOVE PAD COUNT THEN ; 
IMMEDIATE 


Das Wort ‘ eröffnet eine Zeichenkette. Diese endet wiederum mit 
einem ‘'. Das Wort hat unterschiedliches Compile- und Laufzeitver- 
halten. Wird dieses Wort innerhalb einer Doppelpunkt Definition ver- 
wendet, so wird der Text im Parameter-Feld des definierten Wortes 
gespeichert. Während der Laufzeit wird der Text aus dem Wörterbuch 
gelesen und nach PAD übertragen. Gleichzeitig wird auf dem Stapel 
die Adresse von PAD und die Länge des Textes abgelegt. Die direkte 
Eingabe von 


“DAS IST TEXT” 


speichert diese Zeile ab der Adresse PAD. 


" DAS IST TEXT" OK 

PAD COUNT TYPE DAS IST TEXT OK 
Für die Speicherung von Zeichenketten wird das Definitionswort 
STRING verwendet. Während des compilierens wird das Längenbyte 
gespeichert und für N Bytes Speicherplatz im Wörterbuch reserviert. 


Während der Laufzeit wird die Adresse des Längenbytes und die Länge 
selbst auf dem Stapel abgelegt. 


: STRING ( N} <BUILDS 1 MAX 
FF MIN DUP C, DO C, ALLOT 
DOES> 1+ COUNT ; 


Die Eingabe von 
20 STRING AB 


eröffnet eine Variable A® für eine Zeichenkette mit maximal 20 
Zeichen. In diese Variable kann nun Text mit 


“ ABCDEFGHUJ” ASS! 


gespeichert werden. 


Das Wort S! speichert Text. Die Definition lautet: 


S! (ana’n‘) 


Der Text ab Adresse a mit der Länge n wird ab Adresse a’ in einer 
Zeichenkettenvariablen gespeichert. Dabei werden nur so viele Zeichen 
eingegeben, für die in der Variablen Platz gelassen wurde. 


: S! [ ALA'L') DROP DUP 2 - C@ 
ROT MIN DUP >R OVER R> SWAP 
1 - C! CMOVE ; 
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20 STRING Z$ OK 
" GUTEN TAG" Z$ SI OK 
Z$ TYPE GUTEN TAG OK 


eD STRING B$ 

: >B$ " TEST TEST TEST" B$ S! ; 
3D STRING C$ 

'" ABCDEFGHIUKLMNOPGRSTUVWXYZ" 
c$ SI 


Das Wort )B$ speichert dreimal das Wort TEST in der Variablen B$. 
Die Buchstaben A bis Z werden in der Variablen C$ gespeichert. 


» S+ Ü ANA'N'-A"N") 2SWAP PAD 1+ 
SWAP DUP >R CMOVE R> 2DUP + 
PAD C! PAD 1+ + SWAP CMOVE 
PAD COUNT ; 


10 STRING E$ OK 

" GUTEN" E$ SI OK 

10 STRING F$ OK 

" MORGEN" F$ S! OK 

E$ F$ S+ OK 

PAD COUNT TYPE GUTEN MORGEN OK 


Das Wort S+ “addiert‘’ zwei Zeichenketten. Vor dem Aufruf dieses 
Wortes sind die Anfangsadresse und die Länge der ersten und zweiten 
Zeichenkette auf dem Stapel. Nach der Ausführung des Wortes ist die 
Anfangsadresse der zusammengesetzten Zeichenkette und deren Länge 
auf dem Stapel. Beide Zeichenketten werden in PAD zusammenge- 
setzt. In der Adresse PAD wird die Länge, ab PAD 1+ wird die Zeichen- 
kette gespeichert. 
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: LEN Ü AN-N) SWAP DROP ; 
: LEFT$ [ ANN'-AN') LEN ; 


: MID$ [ ANNN"-A'N"') >R >R DROP 
R> + R> ; 


» RIGHT$ [ ANN'-A'N"I) DR +R - 
R> ; 


Das Wort LEN bestimmt die Länge einer Zeichenkette. Da der Aufruf 
einer Zeichenketten-Variablen die Adresse und die Länge auf dem 
Stapel ablegt, braucht zur Bestimmung der Länge nur die Adresse vom 
Stapel entfernt werden. 

C$ LEN . 26 OK 


Das Wort LEFT$ begrenzt die Zeichenkette auf N’ Zeichen vom linken 
Rand aus. 


C$ 5 LEFT$ TYPE ABCDE OK 


Das Wort MID$ bestimmt eine Teilkette, die beim Zeichen N beginnt 
und N Zeichen lang ist. 


C$ 3 4 MID$ TYPE DEFG OK 


Das letzte Wort RIGHT$ begrenzt eine Zeichenkette auf N’ Zeichen 
vom rechten Rand aus. 


C$ 5 RIGHT$ TYPE VWXYZ OK 


Beispiel 


: $T CNN!) CLR DO C$ I LEFT$ 
TYPE CR LOOP ; 


30 STRING L$ 
" vı$ 5! 


Das Wort $T erzeugt den folgenden Ausdruck: 
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CR 21 187 

A 

AB 

ABC 

ABCD 

ABCDE 

ABCDEF 

ABCDEFG 

ABCDEFGH 

ABCDEFGHI 

ABCDEFGHIJ 

ABCDEFGHIJK 

ABCDEFGHIJUKL 

ABCDEFGHIUKLM 

ABCDEFGHIJKLMN 
ABCDEFGHIJUKLMNO 
ABCDEFGHIJKLMNOP 

ABCDEFGHIJKLMNOPQ 
ABCDEFGHIJKLMNOPOR 
ABCDEFGHIJKLMNOPGRS 
ABCDEFGHIJKLMNOPORST 
OK 


und das Wort $T2 den Ausdruck 


: $T2 U NN') CLA DO L$ 20 I - 
LEFT$ TYPE C$ I RIGHT$ TYPE 
CR LOOP ; 


CR 20 1 $T2 
Z 
Yz 
xXYz 
WXYZ 
VWXYZ 
UVWXYZ 
TUVWXYZ 
STUVWXYZ 
RSTUVWXYZ 
GRSTUVWXYZ 
PORSTUVWXYZ 
OPGRSTUVWXYZ 
NOPGARSTUVWXYZ 
MNOPGRSTUVWXYZ 
LMNOPGRSTUVWXYZ 
KLMNOPGRSTUVWXYZ 
JKLMNOPGRSTUVWXYZ 
IUKLMNOPGRSTUVWXYZ 


HIJKLMNOPGRSTUVWXYZ 
OK 


Bei der Definition obiger Worte ist, wie in FORTH üblich, keinerlei 
Überprüfung der Längen der Zeichenketten programmiert worden. 
Der Programmierer muß selbst aufpassen, daß die richtigen Parameter 
übergeben werden. Eine Prüfung der Längen von Zeichenketten kann 
nachträglich programmiert werden, allerdings wird die Laufzeit der 
Zeichenketten Bearbeitung dann länger. 


Die Worte für den Vergleich von Zeichenketten werden am besten in 
Assembler geschrieben. Damit wird eine schnelle Ausführungszeit 
erreicht. Da diese Worte aber für jede CPU anders geschrieben werden 
müssen, soll hier ein Wort, (VERGL), gezeigt werden, das zwei Zeichen- 
ketten auf Gleichheit prüft und in FORTH geschrieben ist. 


Ü VERGLEICH VON ZEICHENKETTEN ) 

(VERGL) [ AA'C-F) 

BEGIN ROT DUP C@ >R OVER I = 
R> SWAP DUP IF 0 ELSE DROP 
>R ROT DUP C@ R> = DUP DUP 
THEN WHILE 2DROP 1+ >R 1+ 
R> ROT REPEAT >R 2DROP 
eDROP R> ; 


: 5= [ ANA'N'-F} 
DROP SWAP DROP 32 (VERGL) ; 


Das Wort (VERGL) vergleicht zwei Zeichenketten, deren Anfangs- 
adressen a und a’ sind, bis zum Begrenzer c in der Zeichenkette ab der 
Adresse a. Sind die Zeichenketten bis zum Begrenzer gleich, so ist f=1, 
andernfalls Null. Das Wort S= übernimmt vom Stapel die Anfangs- 
adresse und die Länge von zwei Zeichenketten und vergleicht sie bis 
zum Begrenzer 32 (Leerzeichen). 


COMPARE ist ein anderes Wort zum Vergleich von Zeichenketten. Auf 
dem Stapel sind die beiden Anfangsadressen der Zeichenketten und die 
Länge N, bis z welcher die beiden Zeichenketten verglichen werden 
sollen. 

Nach dem Vergleich ist das oberste Element des Stapels positiv, Null 
oder negativ. F ist positiv, wenn die Zeichenkette bei der Adresse A 
alphabetisch kleiner ist, als die Zeichenkette bei der Adresse A’. Der 
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Wert von F ist Null, wenn beide Zeichenketten gleich sind, und F ist 
positiv, wenn die Zeichenkette bei A alphabetisch größer ist. 


: COMPARE [ AA'N-F) 
DVER + SWAP DO COUNT I C@ 
- -DUP IF SWAP D= LEAVE THEN 
LOOP IF 0 THEN ; 


"OTTO" F$ SI! OK 
" ADAM" E$ S! OK 


E$ DROP F$ COMPARE „. -14 OK 
" ZUNDER" E$ S! OK 


E$ DROP F$ COMPARE „ 11 OK 
"OTTO" E$ S! OK 


E$ DROP F$ COMPARE „. D OK 


Die Programmierung dieses Wortes ist sehr trickreich und ist (3), VO15, 
N3, S12 entnommen. Besonders fällt die Verwendung des Wortes 
COUNT auf. Nach dem Beginn der DO Schleife ist nur noch die Adresse 
der ersten Zeichenkette auf dem Stapel. Durch COUNT wird diese 
Adresse um Eins erhöht und das Byte, das bei der alten Adresse ge- 
speichert ist, wird auf dem Stapel abgelegt. 
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Notizen 


Datenstrukturen 


In diesem Kapitel sollen zwei Datenstrukturen betrachtet werden. Dies 
sind einmal verkettete Listen und zum anderen binäre Bäume. Solche 
Datenstrukturen lassen sich in FORTH sehr leicht programmieren, da 
der Aufbau des Datensatzes vollkommen frei wählbar ist. Gewisse 
Einschränkungen, die durch das blockweise Aufzeichnen von Daten auf 
Diskette gegeben sind, können leicht umgangen werden. 


4.1 Verkettete Listen 


Die Abbildung 4.1 zeigt eine verkettete Liste. Ein Datensatz enthält ein 
Schlüsselwort KW und einen Zeiger P. 


4.1 Verkettete Liste 


Bei einer sortierten Liste verweist der Zeiger immer auf das nächst 
größere Element. Ein Anfangszeiger PA zeigt auf das kleinste Element 
der Liste. Soll ein neues Element eingefügt werden, so wird durch Ver- 
gleichen der Schlüsselworte mit dem neuen Eintrag der Platz für diesen 
gesucht und durch Einsetzen der Zeiger dieser in die Liste eingetragen. 
Damit ist er logisch in die Liste eingefügt, physikalisch kann er irgend- 
wo im Speicher abgelegt sein. Das Einfügen zeigt Abbildung 4.2. 
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4.2 Einfügen eines Elementes 


Auf die gleiche Weise kann er aus der Liste entfernt und damit gelöscht 
werden. Diese einfach verkettete Liste hat den Nachteil, das sie immer 
nur vom kleinsten Element ausgehend, in einer Richtung durchlaufen 
werden kann. Für ein praktisches Beispiel soll eine doppelt verkettete 
Liste benutzt werden. Diese verfügt über zwei Zeiger. Der eine Zeiger, 
PL, zeigt immer auf den Vorgänger, das nächst kleinere Element, der 
andere, PR, immer auf den Nachfolger, das nächst größere Element. 
Eine solche Liste zeigt Abbildung 4.3. 


b c a 

oe] a [tl ee [erle le 
c a b 
4.3 Doppelt verkettete Liste 


Die Abbildung 4.3a zeigt den Aufbau eines Elementes, wie er für das 
Beispiel einer Kartei mit einem Schlüsselwort verwendet werden soll. 


SCHLUSSELWORT fr fer]e 


4.3a Aufbau des Schlüsselwortes 


Die Länge des Elementes sind 32 Bytes. Davon sind 26 Bytes für das 
Schlüsselwort frei. Die restlichen sechs Bytes sind drei Zeiger. Dies sind 
die beiden Zeiger PL und PR, die für die Verkettung benötigt werden 
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und der Zeiger N. Dieser zeigt auf den Speicherplatz, in welchem die 
zu dem Schlüsselwort zugehörige Information gespeichert ist. 


Beispiele für eine solche Kartei sind Lagerverwaltungen, Personal- oder 
Patienten Dateien. Bei einer Lagerverwaltung ist die Lagernummer das 
Schlüsselwort. In einem Textfeld ist die zugehörige Information, der 
l.agerbestand, Ein- und Verkaufspreis usw. gespeichert. Bei einer 
Patientenkartei wird der Name als Schlüsselwort verwendet. In dem 
folgenden Programm soll hauptsächlich das Aufstellen einer Liste 
jezeigt werden. Die zugehörige Information wird als Text in zuge- 
ordnete Textfelder mit dem Editor des FORTH Systems eingetragen. 


Den Aufbau der Kartei auf der Diskette zeigt Abbildung 4.4. 


Die Schlüsselworte sind ab Block 1 gespeichert. Bei dem verwendeten 
FORTH ist die Zahl B/BUF gleich 256. Ab Textfeld 40 wird der Text 
gespeichert. 


Die ersten 32 Bytes in Block 1 enthalten in den ersten beiden Bytes die 
Zahl N. Dies ist die laufende Nummer für den nächsten Eintrag. Die 
nächsten beiden Bytes enthalten den Zeiger PA, der auf das kleinste 
Element in der Liste zeigt. Eine Liste ist leer, wenn N gleich Eins und 
PA gleich Null ist. 


Ein neuer Eintrag wird durch 
NEW (SCHLUESSELWORT) 


in die Liste aufgenommen. Nach dem Verketten wird über dem Editor 
das zugehörige Textfeld auf dem Bildschirm angezeigt und zur Eingabe 
von Text vorbereitet. 


Das Programm beginnt in Textfeld 40. Das Wort #INDEX bestimmt die 
Speicheradresse für den N-ten Eintrag. Die Länge eines Elementes dieser 
Liste ist 32 Bytes. 


Die Länge eines Blockes ist aber ein ganzzahliges Vielfaches dieser 
Zahl. 


Die Worte mit dem ‘ Zeichen holen Zeiger und Zahlen, Worte mit dem 
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! Zeichen speichern diese an die richtige Stelle zurück. 


a] nor: 
SCHLÜSSELWORT 1 


— 


| 
TEXT ZU 1 | BLOCK 80 
BLOCK 81 


f | 
| | 


4.4 Aufbau der Kartei auf Diskette 


Für den Vergleich der Schlüsselworte wird COMPARE verwendet. Das 
Vergleichswort ist in PAD, das Schlüsselwort wird aus der Liste geholt. 
Das Wort !IMEM speichert ein Element, nachdem es verkettet wurde, an 
das Ende der Liste. EMPTY-LIST erzeugt eine leere Liste. 


Beim Eintragen eines Elementes müssen folgende Fälle betrachtet 
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werden: 
1. Die Liste ist leer. PA=0, N=1. 


2.Ein Element ist in der Liste, dann ist PA=1, N=2, PL(1)=O und 
PR(1)=0. 


3.Der neue Eintrag ist größer, als alle anderen Elemente. J ist die 
Nummer des neuen Eintrags und K die Nummer des Vorgängers. 
Dann ist PR(J)=0, PL{J)=K und PR(K)=J. 


4.Der neue Eintrag ist kleiner als alle anderen Elemente. K ist die 
Nummer des Nachfolgers. Dann ist PL(J)=0, PR(J)=K,. PL(K)=J 
und PA=)J. 


5. Der neue Eintrag muß zwischen dem Element K und dem Element 
J eingefügt werden. Dann wird PR(K)=J, PL(J)=K, PR(J)=| und 
PLI)=J. 


Das Wort ?F# stellt fest, ob die Liste leer ist, und fügt das erste Element 
ein. Die weitere Verkettung übernimmt das Wort VLST). Dieses ist der 
besseren Übersicht nochmals getrennt in Abbildung 4.5 gezeigt. 


Durch 
SUCHE (SCHLUESSELWORT) 


kann ein Eintrag auf dem Bildschirm angezeigt werden. Am oberen 
Bildschirmrand wird das Schlüsselwort, darunter der zu diesem ein- 
gegebene Text angezeigt. Von dieser Stelle aus kann nun mit der 
Eingabe von N (RET) zum Nachfolger und mit V (RET) zum Vorgänger 
geblättert werden. Das linke Ende der Liste ist mit PL=O und das rechte 
Ende mit PR=0O angezeigt. Werden diese beim Blättern erreicht, so wird 
“ENDE DER LISTE‘ ausgegeben. 


Ein Eintrag kann mit 


LOESCHE (SCHLUESSELWORT) 


aus der Kartei gelöscht werden. Die dabei entstehende Lücke kann mit 
dem letzten Element aufgefüllt werden, wobei die Zeiger neu gesetzt 
werden. 
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: (>LST) @PA 
BEGIN @PTRS COMP DUP 0= 
IF ." SCHON IN LISTE" DROP U 1 
ELSE 0< 
IF PUR @ 0= 
IF ( NEUES EL IST GROESSTES ) 

D INPR @N PU @ IPR PJ @ INPL 1 1 
ELSE ( WEITERSUCHEN ) PUR @ DO 
THEN 

ELSE PJL @ 0= 
IF { NEUES EL IST KLEINSTES ) 

0 INPL @PA INPR @N DUP @A !PL !PA 1 4 
ELSE ( EINSORTIEREN )} 

PJ @ @PL !NPL PJL @ @PR I!NPR 

@N PJL @ IPR @N PJ @ IPLA 1 
THEN 

THEN 
THEN 
UNTIL IF IMEM THEN ; 


4.5 Das Wort ()LST) 


40 48: >P 0 Pr# 

SCR # 40 

Ü VKL 10.3.84 EF) 

1 CONSTANT START 

32 CONSTANT RECLEN 

D VARIABLE PJL 0 VARIABLE PUR 

D VARIABLE PyJ 

: @A [ -N) START BLOCK 2 + @; 

: IPA ( N) START BLOCK 2 + I 
UPDATE ; 

#INDEX ( N-A) RECLEN B/BUF 

“/MoD START + BLOCK + ; 

: @L [ N-N') #INDEX 26 + @ ; 

: @R (Ü N-N') #INDEX 28 +@; 

12: @N [ -N) D #INDEX @ ; 

—_) 


a. 
A OOC0COoND UI POm-O 


a2. 
anp0@ 
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SCR # 41 
D [ VKL CNTD 10.3.84 EF) 


1: INPL EN) PAD 26 + I ; 

2 : INPR ( N) PAD 28 + !; 

3 IPL U NN!) #INDEX 26 + | 

4 UPDATE ; 

5 IPR { NN') #INDEX 28 + | 

6 UPDATE ; 

7 IN UN) DO #INDEX ! UPDATE ; 
8: +N 1 0 #INDEX +! UPDATE ; 

9 : @NR ( N-N') #INDEX 30 +@; 
10 : INR @N PAD 30 + |; 

11 

12 —> 

13 

14 

15 

SCR # 42 

D { VKL COMPARE 10.3.84 EF) 
1 : COMPARE [ AA'N-F) U F -0+ ) 
e _DOVER + SWAP 

3 DO COUNT I C@ - -DUP 

4 IF SWAP O= LEAVE THEN 

5  LOOP IF O THEN ; 

6 

7 » COMP ( N-F) #INDEX PAD 26 

B  COMPARE ; 

9 
10 —> 
11 
12 
13 
14 
15 
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SCR # 43 
0 [ VKL CNTD 10.3.84 EF) 
IMEM !NR PAD @N #INDEX 
RECLEN CMOVE UPDATE +N ; 
: EMPTY-LIST D !PA 1 IN ; 
: ?F# ( -F) DO @PA 0= IF !MEM 1+ 
DUP IPA DO 1 !PL O 1 !PR THEN ; 


: @PTRS [ N-N) DUP 2DUP @PL 
PyL I! @PR PUR ! PJ I! 


oosnounPum - 


11 : @MEM ( N) #INDEX PAD RECLEN 
12 CMOVE ; 


14 —> 


[dp] 
OD 
2 


# 44 

Ü VKL >LST 10.3.84 EF) 
ÜDLST) @A 

BEGIN @PTRS COMP DUP 0= IF 

." SCHON IN LISTE" DROP 0 1 
ELSE 0< IF PUR @ 0= IF 

Ü NEUES EL IST GROESSTES) 0 INPR 
@N PyJ @ IPR Py @ INPL 1 1 

ELSE ( WEITERSUCHEN) PJR @ D 
THEN ELSE PL @ 0= IF 

[ NEUES EL IST KLEINSTES) O INPL 
@PA !NPR @N DUP @PA IPL !PA 1 1 
11 ELSE ( EINSORTIEREN) 

12 PJ @@PL INPL PJL @ @R INPR 
13 @N PJL @ !PR @N PJ @ IPL 

44 1 1 THEN THEN THEN UNTIL IF 

15 IMEM THEN ; —> 


_ 
ovosoum PrRwmwm—_o 


_ 
oO 


11-: 


12 
13 


14 : 


15 


[dp] 
OD 
pe) 


ao 
A OOopoND UI POMm-O 


12 
13 
14 
15 


oDNDIPRPWWDB->OTD 
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VKL CNTD 10.3.84 EF) 
: PADC PAD RECLEN 32 FILL ; 

: >PAD PADC 13 WORD HERE COUNT 
PAD SWAP CMOVE ; 

: NEW >PAD ?F# NOT IF (>LST) 
THEN ; 


m = 


.REC ( N) CR @MEM PAD 19 TYPE 
CR PAD 26 +@ . PAD 28 +@. 
PAD 30 +@.CR; 


PRINT @PA BEGIN DUP O= NOT IF 
DUP .REC @PR DUP THEN 0= 
UNTIL DROP ; 

.MES2 ." ENDE DER LISTE" CR ; 
-—) 


# 46 
Ü VKL CNTD 30.3.84EF) 
(Y/N) ." E/NI "KEY 78 = 
IF O0 ELSE 1 THEN ; 
ES UN). VNX" 
BEGIN KEY DUP 86 = 
IF DROP DUP @PL 0= NOT 
IF @PL ELSE .MES2 THEN 1 
ELSE DUP 78 = 
IF DROP DUP @PR 0= NOT 
IF @PR ELSE .MES2 THEN 1 
ELSE 88 = 
IF DROP O ELSE 1 THEN 
THEN 
THEN 
WHILE DUP .REC REPEAT ; 
—) 
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SCR # 47 
0 ( VKL CNTD SUCHEN 30.3.84EF) 
„MES1 .„" NICHT IN LISTE" ; 
(SUCHE) U -N) @PA 
BEGIN DUP COMP 0= 
IF DUP .REC 1 
ELSE DUP @R 0= 
IF .MES1 DROP 1 
ELSE @PR 0 
THEN 
THEN 
10 UNTIL ; 


onmnomnPw@m > 


12 : SUCHE >PAD [SUCHE) „." BLAETTER 
13 N" (U/N) IF <-> ELSE DROP THEN ; 


15 —> 
SCR # 48 
0 ( VKL CNTD LOESCHEN 30.3.84 EF) 
1 : [LOESCH) ( N) 
2 DUP DUP @PR 0= 
3 IF @L 0 SWAP !PR 
4 ELSE DUP @PL 0= 
5 IF @PR DUP O SWAP IPL IPA 
6 ELSE DUP @PL OVER @PR IPL 
7 DUP @PR SWAP @PL !PR 
8 THEN 
9 THEN DUP 0 SWAP !IPR O SWAP IPL ; 
10 


11 : LOESCHE >PAD [SUCHE [J/N) 
12 IF [LOESCH) ELSE DROP THEN ; 
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4.6 Verkettete Listen 


Hin Beispiel: 


EMPTY-LIST OK 


OK 
NEW OTTO OK 
NEW KARL OK 
NEW HEINZ OK 
NEW ADAM OK 
NEW ZAUSEL OK NEW BERND OK 
_ PRINT PRINT 
ADAM ADAM 
034>N 064 
pl — 1 pr 
HEINZ BERND 
423 436 
KARL HEINZ 
312 623 
OTTO KARL 
251 312 
ZAUSEL OTTO 
105 251 
OK 
ZAUSEL 
105 
OK 


Eine andere Verwendung dieses Programms ist die Verkettung von 
Namen aus der Adressverwaltung im nächsten Kapitel. 


Diese verketteten Listen sind einfach zu programmieren, haben jedoch 
einen entscheidenden Nachteil. Bei der Suche nach einem Eintrag wird 
beim kleinsten Element begonnen und dann linear durch die Liste 
gelaufen, bis der entsprechende Eintrag gefunden ist. Bei sehr langen 
Listen stellt dies einen erheblichen Zeitaufwand dar. Soll in einer 
großen Datenmenge schnell auf einen Eintrag zugegriffen werden, so 
wird als Datenstruktur ein binärer Baum verwendet. 
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4.2 Binäre Bäume 


Die Abbildung 4.7 zeigt einen geordneten, ausbalancierten, binären 
Baum. Auf einer Diskette sind die Datensätze für die Vornamen in der 
Abbildung 4.8 gezeigten Reihenfolge gespeichert. Die Vornamen sind 
dabei die Schlüsselworte, nach denen der binäre Baum aufgebaut wurde. 
Jeder Knoten enthält neben dem Schlüsselwort noch zwei Zeiger RL 
und LL. Der Zeiger RL weist auf das nächst größere Schlüsselwort, das 
rechts vom betrachteten Knoten liegt. LL weist auf das nächst kleinere 
Element hin. Den Aufbau eines Knotens zeigt Abbildung 4.9. 


°. [ID 


ag 
sen Franz | 
BI DEO 


anna ] [canıa | Eoon Ne 
eLT° eIel CIE LP 


4.7 Binärer Baum 


1 EGON 

2 DIETER 

3 ANNA 

5 FRANZ 

6 GERDA IEBEN| 
7 BERTA 

4.8 Namensliste 4.9 Knoten 
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Das oberste Element des Baumes ist das Schlüsselwort Dieter. Auf 
liesen Knoten zeigt ein Zeiger P, der den Stamm des Baumes markiert. 
P =2 zeigt, daß Dieter an zweiter Stelle auf der Diskette gespeichert ist. 
der Zeiger RL=5 zeigt auf Franz, der Zeiger LL=7 auf Berta. Von Berta 
wird auf Carla (RL=4) und Anna (LL=3) verwiesen. Beide Namen 
stellen das Ende der Verzweigungen dar. Die Zeiger RL und LL in 
beiden Knoten sind Null. 


Wird nun ein Name gesucht, so wird der erste Vergleich mit P=2 be- 
jionnen und nach rechts oder links weitergegangen, bis der gesuchte 
Name gefunden ist. Wird der Name Zgon gesucht, so wird beim ersten 
Vergleich festgestellt, daß Egon größer (in alphabetischer Reihenfolge) 
uls Dieter ist. Beim Vergleich mit Franz ist Egon kleiner und beim 
nächsten Vergleich ist Egon gefunden. 


Der Zeiger LL, der auf Egon zeigt, ist 1. Somit ist Egon der erste 
Datensatz auf der Diskette. Insgesamt waren drei Vergleiche notwendig, 
bis der Name gefunden war. Bei 15 Namen sind es 4, bei 21 Namen 5 
usw. Soll aus 4095 Datensätze ein Name gesucht werden, so sind maxi- 
mal 12 Vergleiche notwendig. Wird aber die Anzahl der Datensätze auf 
8191 verdoppelt, so ist nur ein weiterer Vergleich (insgesamt dann 13) 
notwendig. Dies setzt aber voraus, daß der binäre Baum regulär und 
uusbalanciert ist. Auf diese Problematik soll gleich eingegangen werden. 


Wo können solche Baumstrukturen verwendet werden? 

Sie können überall dort verwendet werden, wo ein Schlüsselwort nicht 
zweimal vorkommen kann. Dies ist zum Beispiel bei Inventarver- 
zeichnissen der Fall, wo eine Inventarnummer keine zwei verschiedenen 
Einträge bezeichnen kann. Für Bankleitzahlen oder für Versicherungs- 
nummern kann diese Struktur ebenfalls verwendet werden. Auch 
Adressverwaltungen können aufgebaut werden. Der Herr Peter Fischer 
aus Rastatt wird vom Herrn Peter Fischer aus Ulm dadurch unter- 
schieden, daß seinem Namen ein beliebiges Zeichen angehängt wird, das 
beim Ausdruck von Adressen unterdrückt wird. 


Von dieser Art von binären Bäumen muß man andere Arten von 
Bäumen unterscheiden, wie sie bei Suchbäumen oder Expertensystemen 
aufgebaut werden. Bei diesen wird in einem Knoten nach Eigenschaften 
verzweigt. Zum Beispiel: Bluttemperatur größer 37.80 dann rechts 
weiter, weil krank, sonst links weiter, weil gesund. 
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Nun wieder zurück zu unserem binären Baum. In diesen soll ein neuer 
Name Hilde eingefügt werden. Der Platz dafür wird nach Gerda ge- 
funden. Soweit ist noch alles in Ordnung. Der nächste Name Karin 
würde seinen Platz nach Hilde erhalten. Unser schöner, binärer Baum 
gerät außer Kontrolle. Dies zeigt Abbildung 4.10. Der Aufbau eines 
Baumes ist also im wesentlichen durch die Reihenfolge der Eingabe 
der Schlüsselworte bestimmt. Wären die Namen in alphabetischer 
Reihenfolge eingegeben worden, so wäre ein Baum nach Abbildung 
4.11 entstanden. 


PL 
ann] 
PLP 
PPT> 
% 
N 
\ 
N 
SER 


4.10 Binärer Baum außer Kontrolle 


Soll hier ein Name gesucht werden, so müssen maximal sieben, statt 
drei Vergleiche durchgeführt werden. Nicht besser ist es mit einem 
Zick-Zack-Baum in Abbildung 4.12. 


Solche Baumstrukturen sind selten und im allgemeinen ist ein binärer 
Baum bei einer zufälligen Eingabe von Schlüsselworten in den meisten 
Fällen einigermaßen ausbalanciert. Neben anderen Verfahren um 
binäre Bäume auszubalancieren, haben zwei russische Mathematiker 
Andelson-Velskii und Landis ein Verfahren angegeben, das einen 
binären Baum bei der Eingabe ausbalanciert hält. Das Verfahren für 
diese AVL-Bäume soll nun gezeigt werden. 


36 


4.11 Entarteter Baum 


-” 


DIETER | 


—. 
— 


— 
m 


4.12 Zick-Zack Baum 
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Zu den beiden Zeigern RL und LL wird eine weitere Information, der 
Faktor B hinzugefügt. Dieser Faktor gibt an, ob ein Baum nach rechts 
oder links wächst, oder ob er ausbalanciert ist. 


B=1 bedeutet, daß der Baum nach rechts, B=—1, daß er nach links um 
eine Höhenstufe gewachsen ist. B=0 bedeutet, daß der Baum, oder ein 
Teil des Baumes, ab dieser Stelle nach rechts oder links gleich groß ist. 
B ist ebenfalls Null bei den Enden des Baumes. 


In den folgenden Beispielen wird als Schlüsselwort ein Buchstabe ver- 
wendet. Betrachten wir nun Fall 4.13. Dort soll ein neuer Knoten 
C eingefügt werden. Der Platz dafür wird rechts von B gefunden. Da 
der Baum nach rechts gewachsen ist, muß B(B)=1 werden. Ebenso 
B(A). Dies ist aber schon Eins. Dies zeigt, daß der Baum entartet und 
somit neu ausbalanciert werden muß. 


4.14 Ausbalancieren eines entarteten Baumes. Einfache Verschiebung 
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en BE 
Dose al Jıcı 


4.15 Ausbalancieren eines entarteten Baumes. Zweifache Verschiebung 


In diesem Fall wird eine einzige Verschiebung durchgeführt. B wird der 
neue Stamm. Nach LL(B) wird die Adresse von A geschrieben, RL(A) 
wird Null und der Anfangszeiger P enthält die Adresse von B. Die 
Schreibweise (B) in der Zeichnung soll anzeigen, daß nicht das Schlüssel- 
wort A, sondern die Adresse von A gespeichert ist. Die gleiche Ver- 
tauschung wird bei einem Baum angewendet, der zweimal nach links 
‘gewachsen ist. Hier sind dann die Zeiger RL und LL vertauscht. In 
beiden Fällen entsteht ein ausbalancierter Baum und alle Faktoren B 
sind Null. 


Einen zweiten Fall zeigt Abbildung 4.15. Der Baum enthält die 
Elemente A und C. Eine neues Element B wurde hinzugefügt. Von C 
aus gesehen, ist der Baum nach links gewachsen B(C)=--1. 


Von A aus aber nach rechts. Da aber B(A)=1 ist, muß neu ausbalanciert 
werden. In diesem Fall ist eine zweimalige Verschiebung notwendig. 
Da B)A aber B(C ist, muß B zwischen A und C eingefügt und so- 
mit neuer Stamm werden. Die Zeiger der drei Elemente müssen ent- 
sprechend vertauscht werden. Entsprechendes gilt für einen Baum, der 
nach links und dann nach rechts gewachsen ist. 


Im Programm wird der gleiche Aufbau des Datensatzes verwendet, wie 
bei den verketteten Listen. Das Schlüsselwort ist allerdings nur 25 Bytes 
lang, da für die zusätzliche Information zum Ausbalancieren ein 
weiteres Byte benötigt wird. Die Zeiger werden mit LL und RL be- 
zeichnet. 
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Der Algorithmus ist nach (1) programmiert. Dieser wird im folgenden 
hier wiedergegeben. Anfängliche Schwierigkeiten bei der Program- 
mierung wurden durch die Angabe, der Baum sei “nicht leer“ hervor- 
gerufen. Ein Baum ist dann nicht leer, wenn mindestens ein Element 
vorhanden ist. Der Algorithmus benötigt aber.am Anfang einen “jungen 
Baum‘, d. h. einen Baum mit einem Stamm und zwei Ästen. Außerdem 
muß dieser Baum ausbalanciert sein. Dieser Baum wird durch das Wort 
Y-TREE bei der Eingabe aufgebaut. 


Hierbei sind folgende Fälle zu unterscheiden: 


1. Der Baum ist leer. Dann ist: 
PA=0 


2. Ein Element. Dann ist: 
PA=1; LL(1)=0; RL(1)=0; B=0 


3. Zwei Elemente. Dann ist: 
a) KW(2) (KW(1) KW = Schlüsselwort 
PA=1; LL(1)=2; RL(1)=0; B(1)=-1; 
LL(2)=0; RL(2)=0; B(2)=0; 
b) Kw(2) IKW(1) 
PA=1; LL(1)=0; RL(1)=2; B(1)=1; 
LL(2)=0; RL(2)=0; B(2)=0. 


4. Drei Elemente: Dann ist: 

a) KW(3) (KW(1) und LL(1)=0 
LL(1)=3; B(1)=0; 

b) KW(3) IJKW(1) und RL(1)=0 
RL(1)=3; B(1)=0; 

c) KW(3) I)KW(2) IKW(1) (einfache Drehung) 
PA=2; LL(2)=1; RL(2)=3 
alle anderen Zeiger Null. 

d) KW(3) (KW(2) (KW(1) (einfache Drehung) 
PA=2; LL(2)=3; RL(2)=1; B(2)=0; 
alle anderen Zeiger Null. 

e) KW(3) (KW(2) IKW(1) (zweifache Drehung) 
PA=3; LL(3)=1; RL(3)=2; B(3)=0; 
alle anderen Zeiger Null. 
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f} KW(3) JKW(2) (KW(1) (zweifache Drehung) 
PA=3; LL(3)=2; RL(3)=1; B(3)=0; 
alle anderen Zeiger Null. 


Das Wort 3EL fügt das dritte Element nach den oben angegebenen 
Bedingungen ein. Der besseren Übersicht ist dieses Wort nochmals 
in Abbildung 4.16 dargestellt. 


: gEL 


1 1 COMP DUP 0 = 
IF MES1 2DROP 0 
ELSE 0 > 
IF 1 @LL 0= 
IF31 ILL 01 IB 
ELSE 2 COMP DUP O= 
IF MES1 2DROP 0 
ELSE 0 > 
IF 2 IPA3 2 ILL 12 IRLO1 IB 
ELSE 3 IPA 1 INRL 2 INLL DO INB 2 ZERO 
THEN 1 ZERO 
THEN 
THEN 
ELSE 1 @RL 0 = 
IF 31 IRLO1 IB 
ELSE 2 COMP 0< 
IF 2 IPA 1 2 ILL3 2 IRLO2 IB 
ELSE 3 IPA 1 INLL 2 INRL O INB 2 ZERO 
THEN 1 ZERO 
THEN 
THEN 
THEN 
IF IMEM 
THEN ; 


4.16 Das Wort 3EL 


Nachdem ein balancierter Baum aus drei Elementen aufgestellt wurde, 
kann der Algorithmus angewendet werden. Es werden im Programm 
die in (1) angegebenen Variablen verwendet. 
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Im ersten Teil des Algorithmus wird der Platz für ein neues Element 
gesucht. 


A1.AnfangS=P=PA.T=0O 


Die Zeigervariable P wandert am Baum entlang. Die Zeigervariable $ 
zeigt auf die Stelle, bei der eine Ausbalancierung notwendig wird. T 
zeigt jeweils auf den Vater von S. 


A2. Vergleich: Wenn KW({N) ( KW({P), dann weiter mit A3. Wenn 
KW({N) ) KW(P), dann weiter mit A4. Wenn KW(N) = KW(P), dann wird 
die Platzsuche abgebrochen. 


A3. Nach links. Q=LL{P). Wenn Q leer ist, wird Q=N und LL(P)=O und 
weiter mit A5. Sonst wird, wenn B(O) () O ist, T=P und S=Q. Dann wird 
P=Q und nach A2 zurückgegangen. 


AA. Nach rechts. Q=RL{P). Wenn Q leer ist, wird Q=N und LL(P)=Q 
und weiter mit A5. Sonst wird, wenn B(Q) () O ist, T=P und S=Q. Dann 
wird P=Q und nach A2 zurückgegangen. 


AB. Einsetzen. Das neue Element wird gespeichert. Alle Zeiger dieses 
Elementes sind Null. 


Dieser Teil des Algorithmus wird durch das Wort SEARCH-PLACE in 
Abbildung 4.17 ausgeführt. 


Als nächstes müssen die Zeiger B neu gesetzt werden. 


A6. Setzen der Zeiger B zwischen S und Q. Wenn KW(N) ( KW(S) 
dann wird P und U gleich LL(S), sonst wird P und U gleich RL(S). 
Dann wird B{P)=—-1, wenn KM(N) ( KW({P) oder B(P)=+1, wenn KW{N) 
> KWIP) ist. 

Wenn P=O ist, dann ist dieser Teil beendet. 


Nun wird festgestellt, ob der Baum neu ausbalanciert werden muß. 
Dazu wird die Variable A benötigt. 
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» SEARCH-PLACE 


@PADUPSIPIOTI 
BEGIN 1 P @ COMP DUP 0= 
IF MES1 2DROP 0 0 
ELSE 0 > 
IF P @ e@LL DUP G ! D= 
IF & DUP a I P&®@ ILL DROP 1 DO 
THEN 
ELSE P @ @RL DUP Q I 0= 
IF © DUP Qa I P @ IRL DROP 1 D 
THEN 
THEN 
THEN 
WHILE Q @ @B 0= NOT 
IFPer!ıaesı 
THENQ@P | 
REPEAT 
IF IMEM 
THEN ; 


4.17 Das Wort SEARCH-PLACE 


A7. Wenn KW(N) (KWIS) ist, dann wird A gleich —1, sonst +1. 


Wenn B(S) gleich —A ist, dann wird B(S) gleich Null. Der Baum ist 
ausbalanciert und der Algorithmus ebenfalls beendet. 


Wenn BIS) gleich A ist, dann muß der Baum neu ausbalanciert werden. 
Wenn B({U) gleich A ist, dann wird in AB eine einfache Drehung durch- 
geführt, sonst wird in A9 eine doppelte Drehung ausgeführt. 


AB. Einfache Drehung. 

Wenn A ).O ist, dann einfache Drehung nach rechts mit: 
P=R; RL(S)=LL(U); LL(U)=S, 

sonst einfache Drehung nach links mit: 

P=R; LL(S)=RL(U); RL(U)=S. 

Dann wird B(S)=B(U)=0. 
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AD. Doppelte Drehung. 

Wann A) 0 Ist, dann doppelte Drehung nach rechts mit: 
"-1 1 (VB); LLIUJ»RL(P); RL(P)=U; 

MI{SI-LL(P); LL(P)=S, 

sonst doppelte Drehung nach links mit: 

P-RL{U); RL(U)=LL(P); LL(P)=U; 

LL{S)=RL(P); RL(P)=S. 

Wenn B(P)=A ist, dann B{S)=-A; B(U)=0. 

Wenn B(P)=-A ist, dann B(U)=—A; B(S)=0O. 

Wenn B{P)=0 ist, dann B{S)=B(U)=0. 


A10. Ende des Ausbalancierens: 
Wenn S=RL(T), dann RL(T)=P, sonst LL(T)=P. 


Das Ausbalancieren des Baumes wird im Programm durch das Wort 
BALANCE durchgeführt. Das Programm zeigt Abbildung 4.18. Ein 
Beispiel ist in Abbildung 4.19 angegeben. 


SCR # 4 

Dt a 10.3.84 EF) 
1 1 CONSTANT START 

2 er CONSTANT RECLEN 

3 EXIT COMPILE ;5S ; IMMEDIATE 

4 

5: @A ( -N) START BLOCK 26 + @ ; 
6 IPA ( N) START BLOCK 26 + | 

7 UPDATE ; 

8 : #INDEX {Ü N-A) RECLEN B/BUF 

9 */MOD START + BLOCK + ; 

10 


11 2: @LL Ü N-N') #INDEX 26 +@;; 
12 : @AL [ N-N') #INDEX 28 +@;,; 
13 : @N Ü -N) O #INDEX @ ; 

14 —> 

15 
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SCR # 41 


D ( AVL CNTD 10.3.84 EF) 
1 : INLL (N) PAD 26 + I; 
2 : INRL UN) PAD 28 + I ; 
3 : INB EN) PAD 25 + CI ; 
4 : !LL ÜNN') #INDEX 26 + I 
5 UPDATE ; 
6 : IRL ENN') #INDEX 28 + I 
7 UPDATE ; 
8 : IN C. N) O #INDEX | UPDATE ; 
9 : +N 1 0 #INDEX +1 UPDATE ; 
10 : @B ( N-N') #INDEX 25 + c@ 
41 DUP 255 = IF DROP -1 THEN ; 
12. : IB CE NN!) #INDEX 25 + CI 

13 UPDATE ; 

14 : MES1 ." SCHON IN LISTE" ; 
15 —) 

SCR # 42 
D ( AVL COMPARE 10.3.84 EF) 
1 : COMPARE ( AA'N-F) ( F -0+ ) 
2 _ODVER + SWAP 
3 DO COUNT I C@ - -DUP 
4 IF SWAP O= LEAVE THEN 
5 LOOP IF 0 THEN ; 
6 
7 : COMP ( N-F) #INDEX PAD 25 
8  COMPARE ; 
9 

10 —)> 

1 

12 

13 
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SCR # 43 
D ( AVL CNTD 10.3.84 EF) 


1 : IMEM PAD @N DUP PAD 30 + | 
2 #INDEX RECLEN CMOVE UPDATE +N ; 
3 
4 : EMPTY-TREE D IPA 1 IN; 
5 : ZERO ( N) O0 SWAP 2DUP 2DUP 
6 ILL !IRL IB; 
7 
8 : @MEM ( N) #INDEX PAD RECLEN 
9 CMOVE ; 
10 
11 —> 
12 
13 
14 
15 
SCR # 4 


( AVL Y-TREE 10.3.84 EF) 
: 1EL 1 IPA 0 0 0 !NLL INRL INB 
IMEM ; 


ELSE D0< IF 2 1 IRL 1 1 IB 
ELSE 2 1 !LL -1 1 !B THEN 


D 
1 
2 
3 
4 : 2EL 1 COMP DUP 0= IF MES1 DROP 
5 
6 
7 _A4EL THEN ; 

8 
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SCR 


oononmpPowm—_+6öo 


a 
OD 
2 


OONDTI PONmD-O 


# 45 
{ AVL CNTD 10.3.84 EF) 
: 3SEL 1 1 COMP DUP 0= 
IF MES1 2DROP DO ELSE D > 
IF 1 @LL 0= IF 31 ILLO1 IB 
ELSE 2 COMP DUP 0= IF MES1 
eDROP D ELSE D > 
IF 2 IPA 3 2 !LL 1 2 IRLD2 IB 
ELSE 3 !PA 1 INRL 2 INLL DO INB 
2 ZERO THEN 1 ZERO THEN 
THEN ELSE 1 @RL 0= 
IF 3 1 IRL 0 1 !B ELSE 
2 COMP 0< IF 2 IPA 1 2 ILL 
3 2 IRL D 2 !B ELSE 
3 IPA 1 INLL 2 INRL O INB 2 ZERO 
THEN 1 ZERO THEN THEN THEN 
IF IMEM ELSE QUIT THEN ; ——> 


# 46 
( AVL Y-TREE 10.3.84 EF) 
: Y-TREE @PA 0= IF 1EL ELSE 

@N 2 > IF 3EL ELSE 

2eEL THEN THEN ; 


: PADC PAD 25 32 FILL 0 0 O INLL 
INRL INB ; 


O0 VARIABLE T O0 VARIABLE S 
D VARIABLE P O VARIABLE Q 
D VARIABLE U D VARIABLE A 
_—) 
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SCR 
D 


SCR 


_ 
OOo» Pwnm—o 


aa 
nn > 


13 


PEGRRN 
um 


# 47 
( AVL SEARCH 10.3.84 EF) 
» SEARCH-PLACE 
@PADUP SIPIOTI 
BEGIN 1 P @ COMP DUP D= 
IF MES1 2DROP O0 0 ELSE OD > 
IF PeeLL DUP @ ! 0= 
IF @N DUP Q I P@ ILL DROP 1 0 
THEN ELSE P @ @AL DUP Q ! 0= 
IF @n DUP Q I P@ !RL DROP 1 0 
THEN THEN THEN 


WHILE 
ae aB 0= NOT 
IFP@eT1IQaes | THEN 
aepı! 
REPEAT IF !MEM ELSE QUIT THEN ; 
—) 


# 48 

Ü AVL ADJUST 10.3.84 EF) 
: ADJUST S @ DUP COMP 0< 

IF @AL ELSE @LL THEN DUP U I PI! 
BEGIN 

P @ DUP DUP COMP DUP 0= NOT 
WHILE 0< 

IF 1 SWAP IB @RL ELSE 

-1 SWAP IB @LL THEN P | 

REPEAT 2DROP ; 


:ABA@O>UR@P! 
IFU@EeLLSE@ IRLS@UR ILL 
ELSE U@ AL Se !ILLS @ U IRL 
THENOS@IBOUA@ IB; 

_—) 


SCR # 49 

D ( AVL BALANCE 10.3.84 EF) 
:AGA@O>IF 
e@eLLPIP@@LUC !LL 
P@ IRL 
@aLSse|RLS@PE !LL 


LP IP e@eLL U @ IRL 

@ ILL 
@ALSe@ |ILLSE@P@ IRL 
THEN P @ @B DUP 0= 
se 
A@ 


onposooaRrwumnm + 


!BO U @ IB DROP 
+ 0= 


1730S5@eIBA@-1 * 
140U@eIBA@-1 * 
15 THEN THEN OP&@ |! 


SCR # 50 
0 [ AVL BALANCE 10.3.84 EF) 
1 : BALANCE 
2 5 @COMP 0< IF 1 ELSE -1 THEN 
3 A!SeaB DUP 0D= 
4 IFDROPA@SCE !B 
5 ELSE A @ + 0= 
6 IFOS@ !B 
7 ELSE U@@BAQ+ 
B IF AB ELSE AI THEN 
gTeRLS@=- > RPETAR> 
10 IF !IRL ELSE ILL THEN 


11 THEN 
12 THEN ; 
13 —> 

14 
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SCh # 51 


0 ( AVL CNTD 10.3.84 EF) 
1 NEW PADC 13 WORD HERE COUNT 
2 PAD SWAP CMOVE @N 3 > 
3 NOT IF Y-TREE ELSE 
4 _SEARCH-PLACE ADJUST BALANCE 
5 THEN ; 
6 
7 2 „.REC { N) CR @EM PAD 24 TYPE 
8 CRPAD 26 +@ . PAD 25 +C@. 
Ss PAD2B+@.CHh; 
10 
11 
12 
13 
14 
15 


4.18 Aufstellen von binären Bäumen mit Ausbalancieren 


EMPTY-TREE OK 
NEW KARL OK 
NEW HEINZ OK 
NEW OTTO OK 
NEW ADAM OK 
NEW RALF OK 
NEW FRANK OK 
NEW BERND OK 


Dies ergibt folgenden Baum: 


PA = 
KARL 
Pe “ m 
FRANK OTTO 
Pa 12 015 
ADAM HEINZ RALF 
01 000 000 
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NEW ZAUSEL OK 


@RA .REC 
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Durch diese Eingabe ändert sich der rechte Ast. 


PA =1 


KARL 
6-15 


zZ 


OTTO 
000 


4.19 Ein Beispiel 


RALF 
308 


ZAUSEL 
000 


Ein Beispiel 
für künstliche 
Intelligenz 


Das folgende Programm wurde freundlicherweise von Herrn Dr. 
Schmitter zur Verfügung gestellt. 


Unter dem Begriff “künstlicher Intelligenz’’ soll folgendes verstanden 
werden: 


Werden von einer Maschine Aufgaben erledigt, die, wenn sie von einem 
Menschen ausgeführt würden, einen gewissen Intelligenzgrad voraus- 
setzen, so soll dies als künstliche Intelligenz bezeichnet werden. 


Zu diesen Aufgaben gehören zum Beispiel die Erkennung von Mustern, 
die Spracherkennung, automatische Programmerstellung, Lösung von 
Problemen, die nicht durch Algorithmen beschrieben werden können 
und die Programmierung von Expertensystemen. 


Aus dem letzteren Bereich sollen zwei einfache Beispiele gezeigt 
werden. In den ersten beiden Beispielen wird durch Entscheidungs- 
bäume die Bestimmung eines Minerals und eine Fehleranalyse durch- 
geführt, im dritten Beispiel werden Worte durch Assoziationen ver- 
knüpft. Dazu werden Eigenschaften des FORTH Kernels benutzt. 


5.1 Entscheidungsbäume 


Im Gegensatz zu den im letzten Kapitel beschriebenen binären 
Bäumen werden hier Entscheidungsbäume benutzt. Einen solchen 
Entscheidungsbaum zeigt Abbildung 5.1. Dieser dient zur Bestimmung 
von Mineralien. 
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NS, 


a I 2 RL 
RS KALKSPAT QUARZ OLIVIN FELDSPAT KETTESILIKAT 
AUGIT 
HORNBLENDE 
DOLOMIT GIPS (WEICH) 


ANHYDRIT (HART) 
5.1 Entscheidungsbaum zur Bestimmung von Mineralien 


Zur Bestimmung werden bestimmte Begriffe und Eigenschaften fest- 
gelegt. 


Der oberste Knoten ist der Härtegrad. Je nachdem, ob das zu be- 
stimmende Mineral ritzbar oder nicht ist, wird nach links oder rechts 
im Baum verzweigt. Weitere Begriffe zur Bestimmung sind die Farbe, 
die Spaltbarkeit und die Löslichkeit. Als Eigenschaften werden für die 
Farbe zum Beispiel hell-rötlich oder grau-durchscheinend aufgeführt. 
Das Programm zeigt Abbildung 5.2. 


SCh # 102 
0CAaI DRS ) 
1 ö VARIABLE OFFS 
e : INIT O OFFS I; 
3 : BEGRIFF <BUILDS 12 ALLOT DOES> 
4 4- NFA DUP C@ 127 - PAD OFFS 
5 @ + SWAP CMOVE 13 OFFS +1 ; 
6 
7 : AUS. PAD OFFS @ + DUP C@ 128 - 
8 SWAP 1+ SWAP TYPE 13 OFFS +1 ; 
9 


10 : ANTWORT ." ? [WAHR=1/FALSCH=O 
11 ji KEY 48 - DUP . CR ; 

12 

13 : NAME 4 - NFA DUP C@ 128 - 

14 SWAP 1+ SWAP TYPE ; 

15 —> 
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SCR # 103 
0 ([ AI CNTD DRS ) 


oooupP@m+ 


a 
[p] 
2 


SON pP wWm— Oo 


: AUSSAGE DOES> .„." "NAME ." " 


ANTWORT ; 


: EIGEN <BUILDS 


DOES> INIT CR ." IST" 
AUS. „." " NAME ANTWORT INIT ; 


: EIGEN2 DOES> INIT CR ." IST " 


NAME ." " AUS. ANTWORT INIT ; 


: IMP SWAP NOT OR ; 
: ID>=; 


104 
AI CNTD DRS ) 


: BE BEGRIFF ; : E1 EIGEN! ; 


BE HAERTEGRAD 
BE BRUCH 
BE FARBE 


SPALTBARKEIT 


BE LOESLICHKEIT 


AUFBRAUSEND 
ALS-PULVER 

PLATTIG 
HELL-ROETLICH 
GRAU-DURCHSCHEINEND 
MUSCHELIG 

RITZBAR 
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SCR # 105 
D ( AI MINERAL DRS ] 
1 : E HOME „'" STARTWORT MINERAL " 
2 Ch; :1=1>=; 
3 : R7 FARBE HELL-ROETLICH 1 = IF 
4 ." FELDSPAT " ELSE .„'" DUNKELBRAU 
5 N -> KETTENSILIKAT: AUGIT, HORNB 
6 LENDE " ENDIF ; 
7 : R6 FARBE GRAU-DURCHSCHEINEND 
8 1= IF ." QUARZ " ELSE „" GRUENL 
9 ICH -> OLIVIN" ENDIF ; 
10 : RS LOESLICHKEIT ALS-PULVER 1= 
11 IF ." DOLOMIT " ELSE ." WEICH 
12 -> GIPS HART -> ANHYDRIT" THEN ; 
13 : R4 LOESLICHKEIT AUFBRAUSEND 
14 1= IF .„" KALKSPAT" ELSE R5 THEN 
15 5; 


106 

AI MINERAL DRS ) 

R3 BRUCH MUSCHELIG 1= IF R6 

ELSE ." BRUCHFLAECHE -> EBEN " 

R7 THEN ; 

» R2 SPALTBARKEIT PLATTIG 1= IF 
." GLIMMER (BLATTSILIKAT) " 

ELSE ." KOERNIG" R4 THEN ; 


[47] 
OD 
2 
mn 


ao2.20o.0502 
NPWOD-OHCDDONDUIPWM—O 


: MINERAL E HAERTEGRAD RITZBAR 
1= IF R2 ELSE R3 THEN ; E ;S 


5.2 Bestimmung von Mineralien durch einen Entscheidungsbaum 


Der in Abbildung 5.1 angegebene Baum wird in den Textfeldern 105 
und 106 programmiert. Das Wort Mineral leitet die Bestimmung ein. 
Abbildung 5.3 zeigt ein Beispiel. 


MINERAL STARTWORT MINERAL 
IST HAERTEGRAD RITZBAR ? (WAHR=1/FALSCH=0)1 


IST SPALTBARKEIT PLATTIG ? (WAHR=1/FALSCH=0)O 
KOERNIG 

IST LOESLICHKEIT AUFBRAUSEND ? {WAHR=1/FALSCH=0)1 
KALKSPAT OK 


5.3 Beispiel 


Die Begriffe und die Eigenschaften werden im Textfeld 104 festgelegt. 
Dabei werden zwei Definitionsworte BEGRIFF und EIGENI ver- 
wendet. Mit dem Wort BEGRIFF werden Worte definiert, die beim 
Kompilieren für 12 Bytes Speicherplatz im Wörterbuch freihalten. 
Während der Laufzeit werden diese Worte nach PAD geschrieben, 
wobei eine Variable OFFS auf den augenblicklich verwendeten Begriff 
zeigt. Das zweite Definitionswort EIGEN1 legt während des Kompi- 
lierens nur den Kopf des Wortes an, und gibt während der Laufzeit 
den Namen des Entscheidungsbegriffes und die Eigenschaft aus. In 
Antwort wird auf eine Eingabe (1 = wahr, O = falsch) gewartet und 
dementsprechend verzweigt. Das Wort AUS. gibt den Begriff, das 
Wort NAME die Eigenschaft aus. 


Das zweite Beispiel ist eine einfache Fehleranalyse. Dieses Programm 
benutzt die Worte aus den Textfeldern 102 und 103. Gegeben ist ein 
kleiner Schaltkreis, bestehend aus Schalter, Batterie und Birne (Ab- 
bildung 5.4). 


SCHALTER 


BATTERIE BIRNE 


5.4 Zu testender Schaltkreis 
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Den Begriffen Schalter, Birne und Batterie sınd die Eigenschaften 
ZU., AN. und IN.ORDNUNG zugeordnet. 


SCR # 107 

{ AI FEHLERANALYSE DRS ) 
BEGRIFF SCHALTER BEGRIFF BIRNE 
BEGRIFF BATTERIE 

EIGEN! ZU. EIGENI AN. 

EIGEN? IN.ORDNUNG 


: PRUEFE BATTERIE IN.ORDNUNG 
0= IF „" BATTERIE WECHSELN" 
ELSE BIRNE IN.ORDNUNG 
0= IF „" BIRNE WECHSELN" 
10 ELSE ." SCHALTER SCHLIESST NIC 
11 HT" THEN THEN ; 


oovnoDoDUup@am-—Do0 


12 

13 

14 —> 

15 
SCR # 108 

D Ü AI FEHLERANALYSE DRS ) 

1 : ANALYSE 2DUP SWAP IMP 0= 

e IF „" SCHALTERKURZSCHLUSS" 

3 ELSE IMP 0= IF PRUEFE THEN CR 

4 ." TESTENDE" THEN ; 

5 

6 : TEST SCHALTER ZU. BIRNE AN. 

7 2DUP ID 1= IF 2DROP .„" STARTE " 

8 ." MIT ANDERER SCHALTERSTELLUNG 

9 " ELSE ANALYSE THEN ; HOME 

10 ." TEST" 

11 

12 

13 

14 

15 ;8 
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0 PR# OK 
TEST 
IST SCHALTER ZU. ? (WAHR=1/FALSCH=D)1 


IST BIRNE AN. ? (WAHR=1/FALSCH=0)0 
IST BATTERIE IN.ORDNUNG ? {WAHR=1/FALSCH=D) 1 


IST BIRNE IN.ORDNUNG ? [WAHR=1/FALSCH=0)1 
SCHALTER SCHLIESST NICHT 
TESTENDE OK 


5.5 Fehleranalyse 


Im ersten Testschritt wird die Zuordnung Birne und Schalter getestet. 
Ist zum Beispiel die Birne an und der Schalter geschlossen, so scheint 
alles in Ordnung zu sein. Dennoch muß ein weiterer Test mit der 
anderen Schalterstellung gemacht werden, ob die Birne wirklich aus- 
geht. Liegt wirklich ein Fehler vor, die Birne brennt nicht, obwohl der 
Schalter geschlossen ist, so wird der Fehler analysiert und durch 
PRUEFE die einzelnen Elemente überprüft. Das Programm zeigt Ab- 
bildung 5.5. 


Dies ist natürlich nur ein einfaches Beispiel, das aber durchaus auf 
komplexe Schaltkreise übertragen werden kann. Verfügt der Rechner 
über geeignete Sensoren, so ist das Programm durchaus in der Lage, 
eine Funktionsprüfung des Schaltkreises selbsttätig durchzuführen, 
zum Beispiel in einem Auto zur Überwachung der Beleuchtungsanlage. 


5.2. Assoziationen 


Im vorherigen Beispiel mußten die Entscheidungsbäume fest pro- 
grammiert werden. In Abbildung 5.6 ist ein Programm angegeben, das 
ein Aufstellen eines solchen Entscheidungsbaumes wesentlich verein- 
facht. Das Wort BEGRIFF im Textfeld 108 hat eine andere Bedeutung, 
als das bisher verwendete Wort. Es ist ebenfalls ein Definitionswort. 
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SCR # 100 
0 ( AI ASSOZIATION DRS ) 
» BEGRIFF <BUILDS 21 ALLOT DOES> 
DUP 1 + SWAP Ce DUP 32 = IF 
." NOCH NICHT ERKLAERT" DROP 
ELSE 0 DO DUP I 2 * +@ ID. 
LOOP ENDIF DROP ; 


['] [CONPILE]I '; 
ET ELETS 


ooNODUI PM — 


10 : ZAHL DUP 2 + C@ DUP 32 = IF 
11 DROP DO ENDIF ; 


12 
13 : ERHOEHE 1 + 2DUP SWAP 2 + C!; 
14 
15 —> 
SCR # 101 


( AI ASSOZIATION DRS ) 
: SCHREIB 2 * 1 + + SWAP NFA 
SWAP I ; 


." FELD VOLL " DROP 2DROP 


0 

1 

2 

3 

4 

5 : -> ['']JZAHL DUP 10 = IF 

6 

7 ELSE ERHOEHE SCHREIB ENDIF ; 
B 

9 


15 ;5 
5.6 Assoziationen 


Während des Kompilierens reservieren, damit definierte Worte 21 Bytes 
Speicherplatz im Wörterbuch. In diesen freien Platz wird durch das 
Wort - ? die Namensfeldadresse eines anderen Begriffs gespeichert. 
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Gleichzeitig wird in der ersten Stelle die Zahl der zugeordneten Be- 
griffe gespeichert. Wird während der Laufzeit ein Begriff aufgerufen, 
so werden alle zugeordneten Begriffe, deren Namensfeldadresse ge- 
speichert ist, ausgedruckt. Ist kein Begriff zugeordnet, so erscheint 
die Meldung NOCH NICHT ERKLAERT‘'. Das folgende Beispiel: 
"was mache ich am Abend“ soll dies verdeutlichen. 


Die folgenden Begriffe werden eingegeben: 


SCR # 147 
[ ASSOCIATIONEN BEISPIEL ) 
BEGRIFF ABEND BEGRIFF DISCO 
BEGRIFF KINO BEGRIFF THEATER 
BEGRIFF RESTAURANT 
BEGRIFF AUSGEHEN BEGRIFF ZUHAUSE 
BEGRIFF FERNSEHEN BEGRIFF LESEN 
BEGRIFF MUSIK BEGRIFF STRICKEN 
BEGRIFF SCHLAFEN BEGRIFF TANZEN 
BEGRIFF ESSEN BEGRIFF TRINKEN 
BEGRIFF WESTERN BEGRIFF KRIMI 
BEGRIFF SHOW 


- ovopoıyooum Ponm 20 


a. 


Dann werden folgende Zuordnungen gemacht: 


SCR # 148 
DO ( ASSOCIATIONEN BEISPIEL ) 
1 -> AUSGEHEN ABEND 


e -> ZUHAUSE ABEND 
-> DISCO AUSGEHEN 


4 -> KINO AUSGEHEN 

5 -> THEATER AUSGEHEN 

6 -> RESTAURANT AUSGEHEN 
7 

B 


[#*) 


-> FERNSEHEN ZUHAUSE 
=> LESEN ZUHAUSE 
9 -> STRICKEN ZUHAUSE 
10 -> SCHLAFEN ZUHAUSE 
11 -> WESTERN KINO 
12 -> WESTERN FERNSEHEN 
13 -> KRIMI KINO 
14 -> KRIMI FERNSEHEN 
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Ein Beispiel: 


ABEND AUSGEHEN ZUHAUSE DK 


ZUHAUSE FERNSEHEN LESEN STRICKEN SCHLAFEN DK 
FERNSEHEN WESTERN KRIMI OK 


WESTERN NOCH NICHT ERKLAERT OK 


Hilfen 
für die Programm- 
entwicklung 


FORTH Programme lassen sich im allgemeinen recht leicht auf Pro- 
grammierfehler untersuchen. Jedes Wort kann einzeln getestet und der 
Inhalt des Stapels mit .S auf dem Bildschirm angezeigt werden. Manch- 
mal ist die Fehlersuche trotzdem schwierig, vor allem dann, wenn ein 
logischer Fehler bei der Programmerstellung gemacht wurde. Dann 
hilft unter Umständen ein Breakpoint. 


6.1 Breakpoint 
(aus FORTH-DIMENSIONS V5, H1, S19) 


Ü BREAKPOINT ) 


: BREAK CR .".S= ",S 
BEGIN QUERY INTERPRET ." AOK" 


CR AGAIN ; 


: GO R> DROP R> DROP ; 


6.1 Breakpoint 


Abbildung 6.1 enthält einen, gegenüber der Originalveröffentlichung, 
leicht vereinfachten Breakpoint. Das Wort BREAK gibt den Inhalt 
des Stapels auf den Bildschirm aus und geht dann in eine unendliche 
Schleife. In dieser wird QUERY aufgerufen. In diesem Wort wartet 
das System auf eine Eingabe. Diese wird durch INTERPRET aus- 
geführt. Nun ist man sozusagen in einer höheren Ebene im FORTH- 


System. 
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Hier wird durch AOK angezeigt, daß eine neue Eıngabe erwartet wird. 
Wird dabei die Fehlerroutine durchlaufen, so wird in dieser das Wort 
QUIT ausgeführt und man ist wieder in der alten Ausgangsebene. Sind 
beim Testen in der höheren Ebene die beiden Stapel nicht verändert 
worden, so kann mit GO das Programm weitergeführt werden. 


6.2 Ein komfortabler Decompiler 
(von Klaus-Peter Berg und Horst Warnecke aus CAL 1/84 S. 46) 


Obwohl man meistens die Worte in einem Textfeld nachlesen kann, 
ist es manchmal doch sinnvoll, ein definiertes Wort zu decompilieren. 
Dies ermöglicht der Decompiler in Abbildung 6.2. In der Original- 
veröffentlichung ist dieser in FORTH-79 geschrieben. Dies ist eine 
Fassung für Fig-FORTH. 


Das Wort ARRAY, das in Fig-FORTH nicht enthalten ist, ist ein 
Definitionswort. Wird durch ARRAY (NAME) ein Eintrag in das 
Wörterbuch gemacht, so muß die Anzahl der zu speichernden Zahlen 
angegeben werden. 


SCR # 120 
0 ( FAwW DECOMPILER BERG/WARNECKE ) 
1 : ARRAY <BUILDS 2 * ALLOT DOES> 
2 SWP2*+ ; 

3 : GETP [COMPILE] ' ; 

4 0 VARIABLE IFS 15 ARRAY IFT 

5 2: CRO CR IFS @ 2+ SPACES ; 

6 : BR CRD DROP DUP 2+ DUP @ DUP 
7. 0&K IF." REEAT" +@."(" 

8 2+NFA ID. ." ) " ELSE 

9 ." ELSE " DROP DROP THEN 2+ 0; 

10 

11 

12 

13 

14 

15 
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SCR # 121 
0 { FAW DECOMPILER CNTD ) 
: DBR 

CRO DROP DUP 2+ DUP @ DUP 0X IF 
." UNTIL" +@." ( " 2+ NFA ID. 
." J "ELSE + 4 -— @ ! BRANCH 
CFA = IF DUP 2+ DUPP@ +2 -a@ 
0< IF „." WHILE " ELSE „." IF " 
DUP 2+ DUP@ +2 - DUP@+2- 
1 IFS +1 IFS @ IFT ! THEN ELSE 
."IF" DU 2+DP@+2-1 

10 IFS +! IFS @ IFT ! THEN THEN 

11 2+0; 


oouonPwnm—- 


12 
13 126 LOAD 
14 
15 
SCR # 126 
DO { DECOMPILER CNTD ) 
1 : LP BEGIN 
2 BEGIN DUP 
3 IFS@IFT@= 
4 WHILE CRD -1 IFS +! 
5 «" THEN " REPEAT 2+ DUP @ 
6 DUP ' COMPILE CFA = 
7 IF CRO 2 SPACES 2+ NFA ID. 
B 2+ DUP @ 2+ NFA D THEN 


9 DUP ' LITCFA = 

10 IF DROP DUP DUP A + @ 
11 2+ ! CFA = 

12 IF." W2+ @NFA ID. 
13 ELSE 2+ @ „ THEN 

14 2+0 THEN 

15 —> 
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SCR # 127 
0 { DECOMPILER CNTD ) 

DUP ' BRANCH CFA = 

IF BR THEN 
DUP ' OBRANCH CFA = 

IF 0OBR THEN 
DUP ' {LOOP) CFA = 

IF DROP ." LOOP " 2+ 0 THEN 
DUP ' (+LOOP) CFA = 

IF DROP ." +LOOP " 2+ 0 THEN 
DUP ' (DOJ CFA = 

710 IF DROP .„." DO " O0 THEN 

11 DUP ' (.") CFA = 

12 IF DROP .„" „" 34 EMIT SPACE 
13 2+ DUP COUNT DUP >R TYPE R> 
14 1 - + 34 EMIT SPACE O THEN 


oo Pw@mnm- 


15 -—-> 
SCR # 128 
0 ( DECOMPILER CNTD ) 
1 DUP 
2 IF 
3 DUP ' (;CODE) CFA = 
4 IF ." (5CODE) " CR .„" CODE AT" 
5 SPACE DROP 2+ 1 1 
6 ELSE 
7 DUP ' ;S CFA = 
8 IF .",;® 
9 ELSE 2+ NFA ID. 0 THEN 
40 THEN THEN 
11 UNTIL DROP ; 
12 
13 
14 —-> 
15 
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SCR # 129 
0 ( DECOMPILER END ) 
1:@a0D IFS I! CR GETIP .": " 
2  DUP NFA ID. 2 SPACES 
3 CFA DUP @ '! GETP CFA@ = 
4 IFiıP ELSE 
5 
6 DUP @ 3775 = 
7 IF „" CONSTANT " 2+ ? DO THEN 
B DUP @ 3803 = 
9 IF „" VARIABLE " 2+ ? O THEN 
10 DUP ' DOES> CFA = . 
11 IF ." DOES> ( PFA ) " @ 2+ LP 


12 D THEN 

13 -DUP IF ." CODE AT " ? THEN 
14 THEN CR ; 

15 


6.2 Decompiler 


Im Programm wird durch 15 ARRAY IFT ein Feld für 15 Zahlen an- 
gelegt. Mit NN’ IFT ! wird die Zahl N in das Element mit dem Index 
N’ gespeichert. Von dort kann es mit N IFT @ wieder gelesen werden. 
Im Programm wird dieses Feld dazu benutzt, die Rücksprungadressen 
bei Schleifen zu speichern, um diese später wieder auflösen zu können. 
Die Variable IFS enthält die Anzahl der in IFT gespeicherten Zahlen. 


Das Wort LP untersucht die Sonderfälle und druckt deren Ergebnis oder 
die Namensfeldadresse des gespeicherten Wortes aus. Bei einigen 
FORTH-Dialekten können einige Worte wie LIT, VARIABLE, 
CONSTANT und DOES) anders definiert sein. Für LIT erhält man den 
Namen durch 


B 
: TEST 25; 
'TEST@2+NFAID. 


Die Codefeldadrese von VARIABLE und CONSTANT erhält man 
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durch 


O VARIABLE TESTA 
O0 CONSTANT TESTB 


'TESTACFA@. 
'TESTBCFA®@. 


Worte, die als IMMEDIATE erklärt sind, kann das Programm nicht 
erkennen. Dazu gehört auch das Wort BEGIN. Dafür wird nach UNTIL 
und REPEAT das auf das zugehörige BEGIN folgende Wort in 
Klammern ausgedruckt. Wird ein mit CODE in Maschinensprache 
definiertes Wort gefunden, so wird die Adresse, ab welcher dieser Code 
gespeichert ist, ausgegeben. 

Die Abbildung 6.3 zeigt die Decompilierung von Q selbst. 


:a DOLAIFS ! CR GETP ." : " DUP NFA ID. 
2 SPACES CFA DUP @ ' GETP CFA @ = IF LP 
ELSE DUP @ 3775 = 
IF „." CONSTANT " 2+ ? 0 
THEN DUP @ 3803 = 
IF „." VARIABLE " 2+ ? 0 
THEN DUP ' DOES> CFA = 
@ 


IF ." DOES> [ PFAJ "@2+ PO 
THEN -DUP 

IF ." CODE AT " ? 

THEN 

THEN CR ; 


6.3 Decompilierung von Q 


6.3 Suchen von Worten in Textfeldern 

Manche FORTH-Dialekte, wie zum Beispiel poly-FORTH von FORTH- 
INC enthalten das Wort LOCATE (NAME). Damit kann man, wenn das 
Wort in das Wörterbuch kompiliert ist, das Textfeld suchen, in welchem 
es definiert wurde. Verfügt man nicht über ein solches Wort, so ist es 
manchmal schwierig, das Textfeld zu finden, in dem es auftritt. Das 
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Programm in Abbildung 6.4 ist die stark vereinfachte Version eines 
Programmes aus FORTH-DIMENSIONS V5, N3, S11. 


SCR # 110 
0 { FAw DIRECTORY SEARCH 20.3.EF) 

: TSK ; 

: ITEM 13 WORD HERE COUNT PAD 
2DUP C! 1+ SWAP CMOVE ; 

: COMPARE { AA'N-F}) ( F 0<,0,>0) 
OVER + SWAP DO COUNT I C@ - 
-DUP IF SWAP O= LEAVE THEN 
LOOP IF O THEN ; 

: LOOK O0 BEGIN DROP BL WORD HERE 
PAD DUP C@ COMPARE DUP 0= IN @ 

10 255 > OR UNTIL ; 

11 : =ITEM { N-F) BLK@INE@>R >R 

12 B/SCR * BLK I C/L IN ! LOOK 

13 DUP IF DROP 1 BLK +! DIN | 

14 LOOK THEN R> R> IN ! BLK | ; 


ovosnoVtmpwm—- 


15 -—-> 
SCR # 1191 
0 { FAW DIRECTORY CNTD 20.3,.EF) 
1 O VARIABLE CONT 2 ALLOT 
2 : BEREICH ( NN!) <BUILDS , , 
3 DOES> 2@ CONT 2! ; 
4 
5 : SUCHE D ITEM CONT 2@ 1+ SWAP 
6 DO I =ITEM 0= IF DROP I LEAVE 
7 THEN LOOP DUP IF LIST ELSE 
B ." NICHT GEFUNDEN" DROP THEN ; 
g 
10 
11 
12 
13 
14 
15 ;5 


6.4 Suchen nach Worten in Textfeldern 
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Das Wort BEREICH ist ein Definitionswort, mit welchem man Worte 
definieren kann, die den Bereich festlegen, in welchem gesucht werden 
soll. Mit 


110 111 BEREICH TEST 


wird dem Wort TEST der Bereich von Textfeld 110 bis 111 dem Wort 
TEST zugeordnet. Durch den Aufruf von TEST werden die beiden 
Zahlen in der doppelt langen Variable CONT gespeichert. Mit 


SUCHE (NAME) 


wird nun in diesem Bereich nach (NAME) gesucht. Wenn das Wort 
gefunden wird, so wird das Textfeld auf dem Bildschirm angezeigt. 


Wenn es nicht gefunden wird, so erscheint die Fehlermeldung NICHT 
GEFUNDEN. Bei der für dieses Beispiel verwendeten FORTH-Version 
besteht ein Textfeld aus zwei Blöcken. Das Wort LOOK sucht in einem 
Block nach dem Wort. Das Wort =ITEM erweitert nun die Suche auf 
zwei Blöcke. Dabei wird die erste Zeile im ersten Block (Zeile O des: 
Textfeldes, meistens Kommentarzeile) übersprungen. Soll dies nicht 
geschehen, so ist in diesem Wort C/L durch O zu ersetzen. Für den 
Vergleich der Zeichenketten wird das Wort COMPARE benutzt. 


Das Wort ITEM verschiebt das darauf folgende Wort nach PAD und 
speichert im ersten BYTE von PAD die Länge des Wortes. 


Dieses Suchen nach einem Eintrag kann auch leicht für andere Daten 
verwendet werden. In Abbildung 6.5 ist mit dem Editor von FORTH 
ein Telefonverzeichnis eingegeben worden. Aus diesem kann nun mit 
den in Abbildung 6.4 definierten Worten nach Namen oder Telefon- 
nummern gesucht werden. 
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sch # 139 
OD ( TELEFON VERZEICHNIS 
1 R.WAGNER 07214/814563 
2 H.MUELLER 089/745368 
3 C.SCHMITT 08024/4011 
4 B.SCHUSTER 0711/234765 
5 
6 USW. USW. 
7 
E 
9 
10 
11 
12 
13 
14 
15 


6.5 Telefonverzeichnis 


Eine reizvolle Erweiterung dieses Programms ist eine Stichwortkartei. 


6.4 Beispiel Stichwortkartei 


In einem Text soll nach verschiedenen Worten gesucht werden. Der 
Text ist fortlaufend eingegeben. Die Eingabe der Suchbegriffe kann in 
beliebiger Reihenfolge geschehen. Die für das Suchen verwendeten 
Worte zeigt Abbildung 6.6. Das Wort ITEMS erwartet eine Reihe von 
Worten, die durch Leerzeichen getrennt sind. Diese Worte werden nach 
PAD geschoben, wobei vor jedem Wort das Längenbyte gespeichert 
wird. In der Variablen BS wird mitgezählt, wieviele Worte eingegeben 
worden sind. Die Variable LEN wird zum Speichern der Worte in PAD 
gebraucht. LOOKS sucht nun in einem Block nach den eingegebenen 
Begriffen. Ein Wort aus dem Block wird nacheinander mit den Begriffen 
verglichen. Wird eine Übereinstimmung gefunden, so wird die Variable 
BO um eins erhöht. Wenn am Ende des Suchens in einem Block der 
Inhalt von BO und von BS gleich ist, so sind die gesuchten Begriffe in 
diesem Block enthalten. 
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SCR 


oosnaoanPpPwm ao 


SCR 


# 130 

( FAw STICHWORTKARTEI EF) 
D VARIABLE LEN 

0 VARIABLE BS OD VARIABLE BO 

: OPAD PAD 128 D FILL ; 

: ITEMS OPAD O DUP LEN ! BS ! 
BEGIN BL WORD HERE COUNT LEN @ 
PAD + 2DUP C! 1+ SWAP DUP >R 
CMOVE R> DUP 1+ LEN +! 1 

BS +! 1 = UNTIL ; 


—> 


# 131 

[ FAw STICHWORTKARTEI EF) 
(LKS) 0 BEGIN DROP BL WORD 
HERE LEN @ PAD + DUP C@ 
COMPARE 

DUP D0= IN @ 255 > OR UNTIL ; 
LOOKS CR 

"ss @ 1 - DO DUP LEN ! BO |! 

BEGIN [LKS) 0= 

IF LEN @ PAD + C@ 1+ LEN +! 

DO IN! -1BS +1 BS@1 = 

1 BO +! ELSE 1 THEN 

UNTIL BO @ = IF .„" WORTE IN " 
ELSE ." WORTE NICHT IN " 

THEN BLK @ .„ ." ENTHALTEN" ; 


—) 


# 132 
{ STICHWORTKARTEI CNTD EF) 
» =ITEMS BLK@ IN@>R RR 

B/SCR * BLK ! DO IN ! LOOKS 

R> R> IN I! BLK I! ; 


6.6 Suchen nach mehreren Worten 


Dieses Beispiel ist nicht vollständig ausprogrammiert, da der Aufruf 
von LOOKS davon abhängt, ob in einem Block, einem Textfeld oder 
nur in einem Teil des Blockes gesucht wird. In der Adresskartei in 
Kapitel 9 ist ein Eintrag 128 Bytes lang. Begrenzt man LOOKS auf 
ıdliese Länge, so kann man zum Beispiel durch 


SUCHE MUELLER MEINERZHAGEN 


nach dem Herrn Müller aus Meinerzhagen suchen. Das gleiche Ergebnis 
liefert die Eingabe 


SUCHE MEINERZHAGEN MUELLER . 


Natürlich ist dies kein schnelles Suchen. Je nach Geschwindigkeit des 
Diskettenlaufwerks kann das Suchen einige Zeit in Anspruch nehmen. 
Für große Dateien wird man COMPARE durch ein in Maschinensprache 
geschriebenes Wort ersetzen. 


SCR # 137 
DO KARL HEINZ OTTO BERND FRANK 
1 FRITZ ZAUSEL ADAM 
2 Es 
3 
4 
5 TONI VRONI 
6 
OK 
ITEMS KARL ADAM OK 
137 =ITEMS 
WORTE IN 274 ENTHALTEN OK 
D PR# OK 
ITEMS FRITZ ZAUSEL VRONU OK 
137 =ITEMS 


WORTE NICHT IN 274 ENTHALTEN OK 


137 =ITEMS 

WORTE IN 274 ENTHALTEN OK 
ITEMS VRONI ZAUSEL FRITZ OK 
137 =ITEMS 

WORTE IN 274 ENTHALTEN OK 
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Notizen 


Sinustabelle 
mit Turtlegrafik 


Die ersten beiden Textfelder in Abbildung 7.1 enthalten eine Sinus- 
tabelle. Die angegebenen Werte sind vierstellig und geben den Bereich 
von O bis 90 Grad jeweils in Schritten von einem Grad an. 


Die Worte SIN und COS ersetzen auf dem Stapel die Gradzahl durch 
den entsprechenden Sinus- oder Cosinus Wert. 


Mit diesen Worten wird eine einfache Turtlegrafik programmiert. Die 
maschinenspezifischen Worte sind: 


WHITE setzt die Zeichenfarbe auf weiß. 

BLACK setzt die Zeichenfarbe auf schwarz. 

HGR schaltet die hochauflösende Grafik ein. 

PLOT zeichnet einen Punkt X, Y in der gewählten Farbe. 

LINE zeichnet eine Linie vom augenblicklichen Punkt zum Punkt X, Y. 


Die beiden Variablen X, Y enthalten den jeweiligen Standort der 
“Schildkröte. Diese beginnt in der Bildmitte mit der Blickrichtung nach 
rechts. TURN ändert die Laufrichtung. Das Wort DRAWTO benötigt 
zwei Angaben, den Winkel und die Länge auf dem Stapel. Die Einheit 
der Länge einer Linie ist der Abstand von zwei Bildpunkten auf dem 
Bildschirm. 


95 40 DRAWTO ändert den Winkel um 95 Grad und zeichnet dann eine 
Linie von 40 Bildpunkten. 
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# 75 
U TTG SIN-TAB 
: TABLE <BUILDS DOES> 
SWAP 2 * +@; 
TABLE TSIN 
0000 , 0175 , 0349 , 0523 
0698 , 0872 , 1045 „ 1219 
1392 , 1564 , 1763 , 1908 
2079 , 2250 , 2419 „ 2588 
2756 , 2924 , 3090 , 3256 
3420 , 3584 , 3746 , 3907 
4067 , 4226 , 4384 „ 4540 
4695 , 4848 , 5000 , 5150 
5299 „ 5446 , 5592 „ 5736 
5878 , 6018 , 6157 , 6293 
6428 „ 6561 , 6691 , 6820 
—y 
# 76 
{ TTG SIN-TAB CNTD 
6947 , 7071 , 7193 , 7314 
7431 , 7547 , 7660 , 7771 
7880 , 7986 , 8090 , 8192 
8290 , 8387 , 8480 „ 8572 
B660 , 8746 „ 8829 , 8910 
8988 , 9063 , 9135 , 9205 
9272 , 9336 , 9397 , 9455 
9511 , 9563 , 9613 „ 9659 
9703 , 9744 , 9781 , 9816 
9848 , 9877 , 9903 , 9925 
9945 , 9962 , 9976 „ 9986 
9994 , 9998 , 10000 
Ü END SIN-TAB ) —> 
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EF) 


EF) 


SCR # 77 


0 ( TTG6 SIN CoS EF) 
1 : (SIN) [Ü N-N') DUP 90 > 
D IF 180 SWAP - THEN TSIN ; 
3 
4 : SIN ( N-N'!) 360 MOD DUP 0< 
5 IF 360 + THEN DUP 180 > 
6 IF 180 - (SIN) MINUS ELSE 
7 (SIN) THEN ; 
8 
9 : COS [ N-N') 360 MOD 90 + SIN ; 
20 
1 
12 
13 
14 —) 
15 
SCR # 78 
0 ( TTG COMMANDS EF) 
1 140 VARIABLE X 95 VARIABLE Y 
2: YXeYe@; 
3 2: SI [ N'N-N") SWAP SIN 10000 
4 */,; 
5 : CO [ N'N-N") SWAP COS 10000 
6 *; 
7 : TURTLE N!) 140 X 195 Y I 
B HGR BLACK @XY PLOT D ; 
9 : TURN [ N'-N") + ; 
10 
11 : DRAW [ N'N-N') OVER SWAP 
12 DUP >R CO X +! DUP R> 
13 SI MINUS Y +! @XY LINE ; 
14 : DRAWTO ( N'N) >R TURN R> 
15 DRAW ; —> 
SCR # 79 
0 ( TTG COMMANDS CNTD EF) 
4 : TPLOT @XY PLOT ; 
2 : GOTO ( XY) 95 SWAP - Y I 
3 140 SWAP + X ! TPLOT ; 
4 
5 —) 
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SCR # 80 
0 (U TTG EF) 

: SQUARE 4 0 DO 90 4D DRAWTO 
LOOP ; 

: SQS 36 O DO SQUARE 100 TURN 
40 DRAW LOOP ; 

: SQ DO DO 95 40 DRAWTO LOOP ; 

: SQ1 36 DO DO SQUARE 10 TURN 
LOOP ; 


—) 


ao 
>-OoOOoyDm1PpPwmm— 


dp] 
OD 
2 
= 


81 
U TTG EF) 
: TI TURTLE WHITE TPLOT ; 
: SQ2 60 DO DO 90 TURN 60 I - 
DRAW LOOP DROP ; 
: Sa3 42 0 DO 92 TURN 60 I - 
DRAW LOOP DROP ; 
: 5SQ4 30 -60 GOTO B 0 DO 
45 TURN 60 DRAW LOOP DROP ; 
: 5SQ5 3D -60 GOTO 60 O0 DO 
47 TURN 60 I - DRAW LOOP 
10 DROP ; 


oOoNDüpw@mn-.0o0 


a. 
no 


dp} 
O 
je) 


# 138 
SINUS ANNAEHERUNG ) 
» 3PICK >R OVER R> SWAP ; 


m 


: SIN [ MCSMC'S!') 
3PICK 3PICK SWAP / + SWAP 
3PICK 3PICK SWAP / — SWAP ; 


sıoupPom-0 


7.1 Sinustabelle und Turtlegrafik 


In Textfeld 80 und 81 sind einige Beispiele angegeben, 


Il initialisiert die Grafik. Die Beispiele SO2 und SO4 sind in Abbildung 
/.2 gezeigt. 


» 
« 


ZN 


K 
a. 
-- 


o 


N 


R 


= 
ar 
® 


7.2 Turtiegrafik 
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Abbildung 7.3 zeigt eine andere Art, eine Sinusfunktion auszugeben. 
Von einem Ausgangswert für den Cosinus und den Sinus wird der 
nächste Wert nach folgender Formel berechnet: 

SIN (N+1) = 1/M * COS (N) 


COS (N+1)= /M *SIN (N). 


SCR # 138 
0 { SINUS ANNAEHERUNG ) 
1 3PICK >R OVER R> SWAP ; 
£ 
3 2: SIN [ MECS4C!S') 
4 3PICK 3PICK SWAP / + SWAP 
5. 3PICK 3PICK SWAP / - SWAP ; 
6 
7 


= 10000 DO SIN OK 
u 9996 200 OK 


SIN OK 

50 9989 399 OK 
SIN OK 

.S 

50 9978 598 OK 
SIN OK 

.S 


50 9963 797 OK 


7.3 Näherungsweise Berechnung von Sinus und Cosinus 
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Rekursion 


In FORTH ist die Programmierung von rekursiven Verfahren, wie z.B. 
in PASCAL von vornherein nicht möglich. 


Wie dies dennoch möglich ist, soll am Beispiel der ‘Türme von Hanoi“ 
(wzeigt werden. Dieses Beispiel wurde von Herrn Dr. E. D. Schmitter 
programmiert. 


8.1 Die Türme von Hanoi 


Im folgenden wird die Programmierung eines rekursiven Verfahrens 
einmal ausführlich dargestellt. 


Betrachten wir zur Illustration das Hanoi-Problem mit 3 Scheiben auf 
Pfeiler 1. Die Umschichtung auf Pfeiler 2 erfolgt am kürzesten mit 
folgenden Schritten: 


Bewege oberste Scheibe von Pfeiler 1 nach 2 
1 nach 3 
2 nach 3 
1 nach 2 
3.nach 1 
3nach 2 
i nach 2 


Am besten macht man sich die Vorgänge mit Hilfe von 3 verschieden 
großen Papierschnitzeln klar. 


Bei genauer Betrachtung der angegebenen Umschichtsequenz ergibt sich 
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folgendes Vorgehen: In den ersten 3 Schritten werden die obersten 
beiden Scheiben von 1 nach 3 transportiert. Danach wird die nun 
freiliegende unterste Scheibe von 1 nach 2 bewegt. In den letzten 3 
Schritten werden die beiden Scheiben, die auf 3 liegen, nach 2 bewegt, 
womit der Transport beendet ist. 


Problem: Bewege Z Scheiben korrekt von Pfeiler I nach 
Pfeiler J mit Hilfe von Pfeiler K. 
(Algorithmus U(Z.1,J,K)) 


Aussgangssituation 


Bewegung von Z-1 
Scheiben korrekt 
von I nach K mit 
Hilfe von J 
(U(Z-1,1,K,J) 


Bewegung von | 
nach J 


Bewegung won Z-1 
Scheiben korrekt 
von K nach J mit 
Hilfe von I 
(UIZ-1,K,J.0) 


"korrekt'' bedeutet in diesem Zusammenhang, daß bei den 
Scheibentransporten niemals eine größere auf einer kleineren 
Scheibe zu liegen kommt. 


8.1 Prinzip des *Türme von Hanoi”-Algorithmus 
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tu £ Scheiben läßt sich das folgende, allgemeine Prinzip angeben (siehe 
„uch Abbildung 8.1): 


I. Bewege Z-1 Scheiben von 1 nach 3. 
+. Bewege die letzte, unterste Scheibe von 1 nach 2. 


3. Bewege die Z-1 Scheiben von 3 nach 2. 


Damit ist der Turm von 1 nach 2 transportiert. Man löst das Problem, 
/ Scheiben zu transportieren dadurch, daß man 2 mal Z-1 Scheiben 
Iınnsportiert. Der Transport von Z-1 Scheiben wird seinerseits auf den 
von Z-2 Scheiben zurückgeführt — und so fort... 


Wir wollen diesen Algorithmus, der regelmäßig Z Scheiben von Pfeiler 
I nuch Pfeiler J mit Hilfe von Pfeiler K transportiert, U(Z,I,J,K) nennen. 
I ı ist rekursiv, weil er sich in der Form U(Z-1 1,K,J) bzw. U(Z-1,K,J,)) 
nlbst aufruft (siehe dazu Bild 8.1). 


Damit die Sache durchsichtig wird, bringen wir den Algorithmus 
zunächst in die Form eines Flußdiagramms (Abbildung 8.2). Der 
Vorgang startet mit der Vorgabe der Scheibenzahl N und ruft dann den 
Algorithmus U(N,1,2,3) auf, um N Scheiben von 1 nach 2 mit Hilfe 
von 3 zu bringen. Wieso dieses Flußdiagramm das Problem wirklich 
löst, bleibt — wie oft bei rekursiven Algorithmen — zunächst unklar. 
Um zu sehen, was wirklich passiert, nehmen wir wieder unseren 3- 
Scheiben-Turm und verwenden den Algorithmus gemäß Fiußdiagramm 
darauf an (siehe hierzu Abbildung 8.3). 


Rekursion 

Der Algorithmus startet mit dem Aufruf U(3,1,2,3). D. h. in U(Z,1,J,K) 
erfolgt die Belegung Z:=3;l:=1; J:=2;K:=3. Wegen Z ) O wird U(Z-1,l, 
K,J) (siehe Flußdiagramm, Abbildung 8.2) aufgerufen, also U(2,1,3,2). 


Wir treten damit in die nächste (2.) Ebene der Rekursion ein. In dieser 
Ebene werden neue Variable Z,1,J,K definiert und belegt: Z:=2;l:=1; 
J:=3;K:=2, ohne daß die alten Werte der Ebene 1 verloren gehen. 
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U(Z,1,J,K) 


UZ-1,1,K,J) 
BEWEGE |1>J 
VIZ-1,K,J,l) 


RETURN 


8.2 Flußdiagramm des ‘Türme von Hanoi”-Algorithmus 


'ANU| mit 2:53 Scheiben 
te) 


Z:=2;1:=1;,J:=3;K:=2 
250 = 


0(0,3,2,1) 


BEWEGE 13 2 
”"1(2,3,2,1) 


TIEREN) 


BEWEGE 3 >2 


2:=1;51:=1,J:=2;K:=3 
>» =» 0(0,1,3,2) 


EWEGE 1 >2 
0(0,3,2,1) 


IND. 


1.Ebene 2.Ebene 3.Ebene 4.Ebene 


8.3 Die Rekursionsebenen des Hanoi-Problems mit 3 Scheiben 
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Genau genommen müßte man, um ganz deutlich zu machen, daß hier 
neue Variable definiert werden, diese mit der Nummer der Ebene indi- 
zieren, also schreiben Z(2):=2;1(2):=1;J(2).=3;K(2):=2. Die Variablen 
der ersten Ebene müßte man entsprechend mit (1) versehen. In der 
Abbildung 8.3 ist die Indizierung weggelassen, da die Ebenenzuordnung 
aus dem Diagramm hervorgeht. 


Es geht weiter: Da Z(2) > O ist, wird U(Z(2)-1,1(2),K(2),J{2))= 
U(1,1,2,3) aufgerufen. Damit treten wir in die 3. Ebene ein, wo die 
Belegung Z(3):=1;1(3):=1;,J(3):=2;K(3):=3 erfolgt. Da Z(3) > O ist, wird 
mit dem Aufruf U(Z(3)—1,1(3),K(3),J(3))=U(0,1,3,2) in die 4. Ebene 
eingetreten. Da Z(4)=0O ist, erfolgt auf dieser Ebene ein sofortiger 
Sprung zum Ende des Algorithmus (auf dieser Ebene aber nur !). 


Gemäß Flußdiagramm, Abbildung 8.2, wird das Ende durch einen - 
RETURN-Befehl gebildet, der einen Rücksprung in die vorhergehende 
Ebene, hier Ebene 3 bewirkt. Hier geht es mit der Anweisung nach dem 
Aufruf U(Z-1,l,K,J) weiter, da letzterer auf der Ebene 3 zunächst 
erledigt ist. Die mächste Anweisung lautet gemäß Flußdiagramm: 
BEWEGE I(3) > J(3), also BEWEGE 1 > 2. 


Danach kommt der Aufruf U(Z(3)-1,K(3),J(3),1(3))=U(),3,2,1). Das 
bedeutet Wiedereintritt in die 4. Ebene. Da Z(4)=0 ist, erfolgt sofortiger 
Rücksprung in die Ebene 3. Weitergemacht wird auf dieser Ebene mit 
der Anweisung nach dem U(Z-1,K,J,1) Aufruf. Die nächste Anweisung 
ist aber der RETURN-Befehl, der nun mehr einen Rücksprung in die 
Ebene 2 bewirkt. Auf Ebene 2 ist der letzte abgearbeitete Befehl der 
Aufruf U(Z(2)-1 ,1(2),K(2),J{2)). Es folgt die Anweisung BEWEGE 
(2) > J(2), also BEWEGE 1 >3. 


Anschließend treten wir mit dem Aufruf U(Z(2)-1,K(2),J(2) 1(2))= 
U(1,2,3,1) wieder in die 3. Ebene ein. 


Wir wollen die Detaildiskussion an dieser Stelle abbrechen, da man 
sich anhand von Abbildung 8.3 alle weiteren Einzelheiten in der be- 


schriebenen Manier überlegen kann. 


Wir fassen zusammen: Ruft sich der Algorithmus selbst auf, so bedeutet 
dies den Eintritt in eine neue Ebene. Alle im Algorithmus vorkommen- 
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lan Variablen müßten genau genommen mit dieser Ebene ihnen neue 
Werte zugeordnet werden, ohne daß die der vorangehenden Ebenen 
vnılorengehen. In verschiedenen Programmiersprachen wird das 
Ioblem durch die Einführung sog. ‘lokaler’ Variabler gelöst, bei 
ılanım die Wertzuweisung in einem Unterprogramm nur innerhalb der 
imnde beschriebenen Rekursionsebene gültig ist. In PASCAL z.B. sind 
in der PROCEDURE UIZ,l,J,K) die Variablen Z,l,J,K als lokal zu 
Imtruchten. BASIC hingegen kennt das Konzept der lokalen Variablen 
nicht. Hier sind alle Variablen ‘global’, was für uns bedeutet, daß die 
Vntiablen als indizierte Variable Z(L),I(L),J(L) und K({L) definiert 
wurden müssen. Der Index L bezieht sich auf die Rekursionsebene, 
in welcher der Algorithmus gerade arbeitet. Wir kommen auf diesen 
Punkt zurück. 


NETURN schließlich bedeutet Rücksprung in die vorangegangene 
Inkursionsebene und Fortsetzung des Algorithmus auf dieser Ebene 
mit der Anweisung nach dem letzten Selbstaufruf. 


16 Milliarden Jahre 


Als nächstes interessiert uns die Frage, wieviele Rekursionsebenen beim 
N-Scheiben-Hanoi Problem auftreten. 


Luut Flußdiagramm wird durch fortgesetzte Aufrufe von U(Z-1,.. .) 
in N Schritten O erreicht, wobei jedesmal eine neue Ebene betreten 
wird. Der Aufruf U(O,. . .) hat den Eintritt in die Ebene N+1 zur 
Folge, von wo der sofortige Rücksprung in die N-te Ebene erfolgt. 
Somit hat das N-Scheiben-Problem N+1 Rekursionsebenen. 


In jeder Ebene gibt es laut Flußdiagramm genau eine BEWEGE An- 
weisung, bis auf die Ebene N+1, die wegen Z=O mit dem sofortigen 
Rücksprung nach Ebene N keine BEWEGE Anweisung liefert. Wie oft 
wird nun jede Ebene aufgerufen ? 


Betrachten wir Abbildung 8.3, so sieht man, daß 


Ebene 1 1 mal, 


Ebene2 2mal, 
Ebene3 4mal, 
Ebene4 8mal 
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aufgerufen wird. Man überlegt mit nicht allzu großer Mühe, daß all- 
gemein die k-te Ebene 2k-1 mal aufgerufen wird (jede folgende Ebene 
wird wegen des 2-maligen U-Aufrufs im Algorithmus doppelt so oft 
aufgerufen, wie die vorangehende). 


Die Gesamtzahl aller Ebenenaufrufe ohne Ebene N+1 ist also 


1+2+4+48+...= & 2k1=2N. 


k 


um? 


Dies ist auch die Gesamtzahl der Bewegungen, die mit diesem Algorith- 
mus nötig sind, um das N-Scheiben-Problem zu lösen. Dies sind 


bei 3Scheiben 7 Anweisungen, 
bei 10 Scheiben 1023 Anweisungen und 
bei 64 Scheiben 263.1 = 9223372036854775807 = ca. 1019 


Anweisungen. 


Selbst wenn also beim 64-Scheiben-Problem, dem sich die Weisen von 
Hanoi widmen, alle 1/20 Sek. eine BEWEGE Anweisung käme, die von 
den Weisen sofort ausgeführt würde (wie immer diese das so schnell 
realisieren), so bräuchten sie doch etwa 15 Milliarden Jahre, um den 
Turm umzuschichten. Übrigens schätzt man das Alter unserer Erde auf 
4,7 Milliarden Jahre und das des Weltalls auf 10 bis 20 Milliarden 
Jahre... 


8.2 Das FORTH-Programm 


Abbildung 8.4 zeigt das Flußdiagramm des Türme-von-Hanoi-Algorith- 
mus, zugeschnitten auf Verarbeitung mit FORTH. Jedem Kästchen ent- 
spricht ein FORTH-Wort — woraus die Vorteile dieser Sprache be- 
züglich eines strukturierten Programmierstils sofort deutlich werden. 


Abbildung 8.5 enthält das FORTH-Programm, sowie eine Beschreibung 
der auftretenden FORTH-Worte in Hinsicht auf Ihre Wirkung auf den 
Parameterstapel. Einer besonderen Erklärung bedarf an dieser Stelle die 
Technik der Rekursion (Selbstaufruf eines FORTH-Wortes). 
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Dre] 


| “VIZ-1,1,K)" 
| "UIZ-1,K,1)" 


[user] 


DJ 


NS 


[L_ soror |) 


8.4 Flußdiagramm für das FORTH-Wort U (I JK Z>) 


SCR # 114 
0 { FAW REKURSION DRS ) 
1 Ü TUERME VON HANOI ) 


2 
3 : SELBST LATEST PFA CFA 

4 [COMPILE] LITERAL ; IMMEDIATE 
5 : SELF [COMPILE] SELBST 

6  EXECUTE ; 

7 

8 


: 4DUP 4 0 DO SP@ 6 + @ LOOP ; 

9 : IKUZ-1 4DUP 1 - ROT ROT SWAP 
AD ROT; 

11 : I->4 ADUP 2DROP SWAP CR . 
12.130; 

13 : KUIZ-1 ADUP 1 - Spe2+@ 
14 SP@B+ESP@ GB + | SpaB +1 ; 
53. — 
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SCR # 115 
DO ( FAw TUERME V. HANOI CNTL DRS ) 
: ADROP 2DROP PDROP ; 


oO --2.2.,.J5 
RUPOP-OCOND UT PWm- 


Ausführung N=4 
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: U DUP D > IF IKJZ-1 SELF I->J 


—_ 
no 
w 
> 
c 


>20 npYDwWD->>nn—-nwD—.. 


ıiııı ee 
VVVVVVVVVVVVVVV 


DDNODmD--PRPRPRD DAAD mm Ww 


KJIZ-1 SELF ENDIF ADROP ; 


Beschreibung der FORTH-Worte: 


SELF — unter Verwendung von SELBST — bewerk- 
stelligt allgemein den Selbstaufruf (Rekursion) des 

FORTH-Wortes, in dessen Definition es auftritt. 

Näheres im Text. 


4DUP (IJKZ>IJKZIJKZ) 

IKJZ-1 (IJKZ>IKJZ-I) 

I>J (I JKZ>IJK Z) Ausgabe von "1 > J" 
auf Bildschirm 

KJIZ-1 (IJKZ>KJIZ-I) 

4DROP (IJKZ>) 

U (1 JK Z >) Türme von Hanoi Algorithmus 

“UIZ,I,J.K)" 


8.5 Das FORTH-Programm 


I in FORTH-Wort kann sich nicht ohne weiteres selbst aufrufen: 
I ine Definition der Art 

: WORT....WORT....; 
tuhrt zunächst zur Fehlermeldung 

WORT? 


Mun kann FORTH die Rekursion aber beibringen. Dies geschieht 
Imispielsweise mit den beiden Worten 


SELBST LATEST PFACFA (COMPILE) LITERAL; 
IMMEDIATE 
SELF (COMPILE) SELBST EXECUTE ; 


laren Bedeutung wir jetzt erläutern. 


Zunächst zu SELBST: 

LATEST holt die Namensfeldadresse des zuletzt definierten Wortes 
auf den Stapel. PFA CFA wandelt diese über die Parameterfeldadresse 
In die zugehörige Codefeldadresse um. 


LATEST PFA CFA innerhalb einer Wortdefinition: WORT ....; 
benutzt — holt also die Codefeldadresse von WORT auf den Stapel, 
wobei dies aber schon während der Compilation von WORT -— nicht 
orst während der Ausführung — erfolgen soll. Zu diesem Zweck ist 
SELBST als IMMEDIATE deklariert. 


LITERAL ist ein Wort mit IMMEDIATE-Charakter. Während der 
Compilation nimmt es die auf dem Stapel liegende letzte Zahl (TOS) — 
hier also die Codefeldadresse von WORT in die Definition von WORT 
auf, um sie bei der Ausführung (RUNTIME) von WORT wieder auf 
dem Stapel abzulegen. 


Damit nun aber — wegen des IMMEDIATE-Charakters von LITERAL — 
LITERAL nicht schon während der Compilation von SELBST aus- 
geführt wird, schreiben wir (COMPILE) davor. Dadurch wird der 
IMMEDIATE-Charakter von LITERAL an dieser Stelle (lokal) auf- 
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gehoben und LITERAL wird in die Definition von SELBST compi- 
liert. 


Zusammen: SELBST compiliert in die Definiton von WORT (wenn es 
in ihr vorkommt) die Codefeldadresse von WORT hinein — und legt sie 
bei der Ausführung von WORT auf dem Stapel ab. 


EXECUTE interpretiert die gerade oben auf dem Stapel befindliche 
Zahl als Codefeldadresse eines Wortes und startet die Ausführung dieses 
Wortes. 


SELBST EXECUTE startet damit also beim Lauf (RUNTIME) von 
WORT das FORTH-Wort WORT wieder neu an. 


Diese beiden Worte fassen wir nun im neuen Wort SELF zusammen (s. 
0... Da nun SELBST IMMEDIATE-Charakter hat, muß durch Vor- 
schalten von (COMPILE) die Sofortausführung von SELBST bei der 
Compilation von SELF verhindert werden: SELBST wird so in die 
Definition von SELF ”hineincompiliert’’ und tritt erst bei der Aus- 
führung von SELBST in Aktion. 


:WORT....SELF....; 
ist jetzt rekursiv: SELF hat den Selbstaufruf von WORT zur Folge. 


Es existieren FORTH-Versionen, die ein Wort mit der Bedeutung von 
SELF (oft auch MYSELF genannt) bereits im Wörterbuch haben. Die 
hier verwendete Fig. FORTH-Version verfügt nicht von vorneherein 
darüber. 


Doch weiter zur Programmbesprechung: 

Die Worte 4ADUP, 4DROP, IKJZ-1, KJIZ—-1 und | > J manipulieren 
einen Satz von 4 Zahlen | J K Z auf dem Stapel in der in Abbildung 
8.5 beschriebenen Weise. 


Das Wort U enthält schließlich den Türme-von-Hanoi-Algorithmus 
gemäß Flußdiagramm (Abbildung 8.4). 


U erwartet auf dem Stapel zu Beginn den Parametersatz 12 3 N, wobei 
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N «lie Scheibenzahl angibt. Ein Ausführungsbeispiel befindet sich in 
Atıbildung 8.5. 


Vorfügt das FORTH-Wörterbuch über das Wort SMUDGE (z. B. Fig- 
IORTH), so läßt sich das Rekursionsproblem noch anders lösen (siehe 
faitschriftt mc 9/83, S. 6, Leserbrief “FORTH‘’): Dazu muß man 
wissen, daß jedes FORTH-Wort im Namensfeld ein “Suchbit‘ mit sich 
tihrt. Ist das Suchbit = 1, so wird das Wort bei der Suche im Wörter- 
Inch übergangen, ist es = 0, so wird es aufgefunden. Nach Beginn einer 
Wurtdefinition wird das Suchbit erst einmal auf 1 gesetzt, was ins- 
Innondere bedeutet, daß es sich nicht selbst aufrufen kann. Erst, wenn 
kaln Fehler bei der Compilation auftritt und das Endzeichen " ; ” 
nbiyearbeitet ist, wird das Suchbit auf O gesetzt und das Wort frei- 
ingeben. SMUDGE invertiert das Suchbit. Wir überlisten den Rechner 
nlno folgendermaßen: 


:U[SMUDGE ]...Ul...U...[SMUDGE ]; 


Nuch Compilation von : U ist das Suchbit 1, wird dann auf O gesetzt 
durch SMÜUDGE, so daß der Selbstaufruf U auch findet. Am Ende muß 
ılliaser Vorgang umgekehrt werden, um den Normalzustand wieder her- 
sustellen, bevor ” ; ”” compiliert wird. Damit SMUDGE nicht mit der 
Definition compiliert wird, sondern bei der Compilation von U direkt 
ausgeführt wird, erscheinen die eckigen Klammern, die den Compiler 
nbb- und einschalten. 


[dp] 
[} 
ee] 


# 112 

{ FAw REKURSION DRS ) 
( TUERME VON HANOI ) 

( ZWEITE VERSION ) 


: 4DUP 4 DO DO SP@ 6 + @ LOOP ; 

: IKJZ-1 ADUP 1 - ROT ROT SWAP 
ROT ; 

: I->J ADUP 2DROP SWAP CR . 


Pe > SL Re 
KJIZ-1 4DUP 1 - SP@E 2 +@ 
"sPO 8 +@ Spas + ! SP@B+ I; 


==? 


om snouPw@am-o 


aoao 
no 
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SCR # 113 
DO [ FAW TUERME V. HANOI CNTD DRS ) 


1 : 4DROP 2DROP 2DROP ; 
2 

3 : U [ SMUDGE ] 

4A DUP O > IF IKJZ-1 U I->J 
5  KJIZ-1 U ENDIF 4DROP 
6 [ SMUDGE ] ; 

7 

B 

9 
10 
11 
12 
13 
14 ;S 

15 


8.6 Rekursion mit SMUDGE 


Abbildung 8.6 zeigt das FORTH-Programm in der "SMUDGE-Version. 
Die Laufzeit wird allerdings nur unwesentlich verkürzt. Mit N=10 läuft 
die °SELBST‘-Version 65 sek., während die SMUDGE-Version ca. 
60 sek. beansprucht. 
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Adressverwaltung 
mit Rechnungs- 
schreiben 


Die Textfelder 150 bis 171 stellen eine Adressverwaltung dar, die auch, 
bis auf eine Änderung, im BUSIPACK verwendet wird. Auch die Lager- 
verwaltung ist ähnlich aufgebaut. Diese Adressverwaltung wird durch 
ein Programm zum Schreiben einer Rechnung ergänzt. Im Gegensatz 
zum BUSIPACK wird hier nur ein Artikel, zum Beispiel eine Zeitschrift, 
die an verschiedene Kunden geschickt wird, verwaltet. 


Die Textfelder 140 bis 144 enthalten die schon teilweise besprochenen 
Worte zum Ausdrucken und Formatieren von Text. Textfeld 143 über- 
nimmt das Speichern der Adressen auf Diskette. Diese werden ab Block 
80 gespeichert. Die vorderen Blöcke sind für Versuche mit binären 
Bäumen und verketteten Listen freigehalten. In den ersten beiden 
Bytes von Block 80 ist die Nummer des nächsten Eintrags gespeichert. 
Diese Zahl gibt die in der Datei gespeicherten, um Eins erhöht, an. 
Sie ist als FIRST# bezeichnet. Das Wort #INDEX berechnet aus dem 
Index N den Block, in welchem die gesuchte Adresse gespeichert ist. 
Das Wort lautet für die meisten Rechner: 


: #INDEX (N-A) RECLEN B/BUF */MOD 
START +BLOCK +; 


Die im Ausdruck angegebene Version ist für den C-64 bestimmt. Dort 
darf Block 357 nicht beschrieben werden. In diesem Block sind Infor- 
mationen für das DOS des Commodore Rechners gespeichert: Die Worte 
IMEM und @ MEM speichern den Eintrag N auf Diskette oder holen ihn 
von dort. Das Wort IENTRY speichert einen Eintrag an die Stelle 
zurück, deren Nummer in der Variablen #NR gespeichert ist. 
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Die Worte in Textfeld 144 speichern ein Datum in! Wörterbuch und auf 
Diskette. Dort wird es in den auf FIRST# folgenden Bytes gespeichert. 


Eine Adresse wird bei der Eingabe in eine Maske eingetragen. Diese 
Maske zeigt Abbildung 9.1. 


1 


-ABT. RECHNUNGSWESEN _—--— 


-GRUENE BAUM STR. 27 —-- 


-D-8000 -MUENCHEN —- 


= -123456 -089/9876544——-- - 


—— on nn ne 


12345-1234567-12345678901- 


WAS 2 PR# SCRP 0 PR# 


—nbVQÖP22—-.—_ ec... 


EIN MEHR ENDE EXIT LOESCHEN MENU 
NA CO ST PLZ ORT C1 C2 TEL 


9.1 Maske für die Eingabe einer Adresse 


Das Wort DESCR erzeugt den Kopf für eine doppelt lange Zahl. Diese 
Variablen (NA), (CO) usw. enthalten die relative Anfangsadresse zu 
PAD und die Länge des Eintrags. Der Eintrag für die Straße beginnt 
zum Beispiel bei PAD+51 und ist 23 Bytes lang. 


Worte im nächsten Textfeld holen diese beiden Zahlen auf den Stapel. 
Die Worte CNA,CCO setzen den Cursor an die entsprechende Stelle in 
der Maske. CU ist maschinenabhängig. Die Definition ist 

CU (ZS) setzt den Cursor in die Zeile Z und die Spalte S. 

Die folgenden Worte löschen den Inhalt eines Eintrags auf dem Bild- 


schirm und in PAD. Die Worte für die Eingabe einer Adresse sind im 
Textfeld 154 vereinbart. Dazu einige allgemeine Bemerkungen. 
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Von den Sprachen PASCAL und BASIC ist man gewöhnt, daß man in 
sinom Programmschlauch steckt. Die Wiederholung einer Eingabe ist 
mat am Ende einer oft recht langen Eingabefolge möglich. In diesem 
"inne ist auch die Eingabe einer Adresse im BUSIPACK programmiert. 
Iinses Programm zeigt eine andere Form einer Eingabe. Das Wort NA 
löscht den Inhalt des Namensfeldes sowohl in PAD, als auch auf dem 
Ildschirm, setzt den Cursor an den Anfang des Feldes und wartet auf 
ılln Eingabe von Zeichen. Nach RETURN, oder wenn das Feld voll ist, 
springt der Cursor wieder zu der Frage WAS. Dann kann ein anderes 
Wort, z. B. ORT eingegeben und dort kann ein Eintrag gemacht werden. 
In dieser Form sind bei WAS alle anderen Worte zugänglich. Diese Ein- 
ımbe ist bei der Korrektur von Eintragungen recht nützlich, jedoch bei 
dor Eingabe von vielen Adressen recht langsam und aufwendig. Im 
vorliegenden Programm können beide Eingabeformen, Einzeleingabe 
und fortlaufende Eingabe benutzt werden. Das Wort Ein setzt den 
Gursor an den Anfang des Namensfeldes. In das nächste Feid wird mit 
RETURN gesprungen, oder wenn das Feld voll beschrieben ist, wird es 
ubergangen. Hier entfällt auch die Nachfrage, ob die Eintragung richtig 
ist oder nicht. Nach der fortlaufenden Eingabe kann dann ein einzelner 
Fintrag in der Maske korrigiert werden. 


Die Maske selbst wird in den Textfeldern 156 und 157 gezeichnet. Das 
Wort MASK zeichnet die Maske auf den Bildschirm. .ADDR gibt den 
Inhalt eines Eintrags normal aus, .MAD zeichnet die Maske auf den 
Bildschirm und trägt den Inhalt eines Eintrags in diese ein. Textfeld 
158 enthält das Menue des Adressenprogramms. Die Beschreibung des 
Programmablaufs ist in der Beschreibung des BUSIPACKS enthalten. 


Im nächsten Textfeld ist das Wort zum Vergleichen von Zeichenketten 
programmiert. Dieses Wort wurde schon in Kapitel 3: gezeigt. Die 
nächsten Textfelder enthalten die Worte zur Eingabe und zur Ausgabe 
auf den Bildschirm oder Drucker. Wenn beim Suchen nach Einträgen 
ein zutreffender Eintrag gefunden wird, so wird der Begriff, nach dem 
gesucht wird, kurzzeitig verschoben und der gefundene Eintrag nach 
PAD geholt und von dort auf den Bildschirm ausgegeben. Danach wird 
der Suchbegriff wieder zurückgeholt. 


Bei der Eingabe von mehreren Adressen wird durch das Wort MEHR 
die Eingabe der nächsten Adresse eingeleitet. Soll die Eingabe beendet 
werden, so ist das Wort ENDE einzugeben. Damit werden die Einträge 
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an das Ende der Liste gespeichert und FIRST# entsprechend erhöht. 
Wird der Eintrag mit N FINDE aus der Liste geholt, so muß er nach 
einer Änderung an die gleiche Stelle zurückgeschrieben werden. 


Mit dem Wort LÖSCHEN wird ein Eintrag mit Leerzeichen aufgefüllt. 


Die nächsten Textfelder enthalten die Worte für die Ausgabe auf einen 
Drucker. Abbildung 9.2 zeigt die Ausgabe auf Adressaufkleber. 


2 1 
HANS PETER MUELLER VERLAG DER COMPUTERFREUNDE 
MEISTER ABT. RECHNUNGSWESEN 
LINDENWEG 2 8 GRUENE BAUM STR. 27 
D-7500 KARLSRUHE D-8000 MUENCHEN 


9.2 Adressaufkleber 


Um zwei Etiketten gleichzeitig ausdrucken zu können, wird eine Zeile 
in PAD und PADD (PAD + RECLEN) zusammengebaut. Damit der 
Abstand stimmt, werden die auf den Eintrag folgenden Nullen, die 
durch EXPECT dort abgelegt wurden, durch SPAD entfernt. 


Mit der Eingabe von 
DRUCKER SUCHE (BEZ) 


werden Aufkleber gedruckt, welche die Suchbedingung erfüllen. Ist 
dabei schon eine Adresse für die Druckausgabe in PAD gespeichert, 
so wird diese kurzzeitig noch weiter nach oben geschoben. Die letzte 
Zeile der Adresse mit den beiden Codefeldern wird bei Aufklebern 
nicht, beim Drucken des Inhaltes jedoch mit ausgedruckt. Dies 
geschieht durch das Wort IDRUCK. 


Die Worte SUCHE und INHALT kommen in unterschiedlichen 
Bedeutungen vor, je nachdem, ob sie auf den Drucker oder auf den Bild- 
schirm ausgegeben werden. Deshalb sind zwei Wörterbücher 
TERMINAL und DRUCKER angelegt worden, um in diesen die Worte 
unterschiedlich definieren zu können. Das Wort RUN bringt nur das 
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Monue auf den Bildschirm. Das Wort NEU setzt FIRST# auf Eins und 
"löscht somit die Liste. Dieses Wort muß am Anfang beim Erstellen 
ıiner Adressliste eingegeben werden. 


At Textfeld 172 beginnt das Schreiben einer Rechnung. Das Produkt 
ist in Block 79 in Zeile O (Zeile 8 des Textfeldes 39) gespeichert. Zeile 
I unthält den Preis. Diese Angaben können mit dem Editor des FORTH 
"ystems dort eingetragen werden. Außerdem enthält dieses Textfeld 
noch Angaben, die für das Schreiben einer Rechnung gebraucht werden. 
Dies zeigt Abbildung 9.3. 


[dp] 
OD 
2 


# 39 

VERSANDKOSTEN 

RECHNUNGSBETRAG 

ZAHLBAR REIN NETTO 30 TAGE ZIEL 


ELCOMP HEFT 4/5 
6.00 

RECHNUNG 

NUMMER 

% RABATT - 

13 MEHRWERTSTEUER 
14 5.00 

15 


_ 
oovonDoDı1 p@om—-60o 


a. 
nn 


9.3 Textfeld 39 mit Angaben zum Schreiben einer Rechnung 


Für den Preis und die Rechnungssumme werden doppelt lange Zahlen 
benutzt. Das Wort ABO leitet das Rechnungsschreiben ein. Es erscheint 
das Menue dieses Programmteils. Mit DATUM TTMMJJ wird das 
Datum eingegeben. DATUM 200384 wird auf der Rechnung als 
20.03.84 ausgedruckt. RECHN# NNNN bestimmt die Nummer der 
nächsten Rechnung. Diese wird automatisch beim Schreiben von 
Rechnungen erhöht. Das Wort RES schreibt alle Rechnungen. Es 
beginnt bei der ersten Adresse und endet bei der letzten Adresse. Soll 
für nur einen Kunden eine Rechnung geschrieben werden, so geschieht 
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dies mit (N) REC. Dabei ist N die Nummer des Kunden, unter welcher 
er in der Adressliste zu finden ist. 


In unserem Beispiel für den Versand einer Rechnung soll für jeden 
Kunden die Zahl der zu liefernden Hefte und der eingeräumte Rabatt 
vorgegeben werden. Für diese Einträge werden die Codefelder C1 und 
C2 in den Adressen benutzt. Im Codefeld C1 ist die Zahl der zu liefern- 
den Hefte, im Codefeld C2 der Rabatt eingetragen. Das Wort P)Z, das 
die dort als Zeichenketten gespeicherten Zahlen in richtige Zahlen 
wandelt, benötigt als Begrenzer ein Leerzeichen nach der Zeichen- 
kette. Für 100 Stück muß man 100 eingeben. Das gleiche gilt für den 
Rabatt. Für eine echte Applikation dieses Programmes wird man dieses 
Wort so ändern, daß das Leerzeichen automatisch eingefügt wird. Das 
Wort .VERLAG druckt die Firmenadresse aus. Diese ist als erste 
Adresse in der Liste gespeichert. Das Wort .KUNDE druckt die 
Anschrift des Kunden aus. Z1 schreibt das Wort Rechnung und Z2 die 
Rechnungsnummer und das Datum. 


Das Wort MES benötigt drei Parameter auf dem Stapel. A ist die Block- 
nummer, N die Zeile, in welcher der auszugebende Text gespeichert ist. 
N’ ist die Stelle, gerechnet vom linken Rand aus, ab welcher der Text 
ausgedruckt werden soll. Die Worte IANZ und !RAB holen die Angaben 
aus den Codefeldern und speichern die Zahlen in den entsprechenden 
Variablen. 


Für die Berechnung des Nettopreises und des Bruttopreises werden die 
Worte NET bzw. BRT benutzt. Beide Worte verwenden das Wort 
UDN*. Es multipliziert eine doppelt lange Zahl mit einer einfach 
langen Zahl. Als Ergebnis bleibt eine doppelt lange Zahl auf dem 
Stapel. Eine Implementation dieses Wortes in 6502 Maschinencode 
ist in Abbildung 9.4 angegeben. 


Die Mehrwertsteuer ist als Konstante vereinbart. Die eingegebene Zahl 
bedeutet 7.0% Mehrwertsteuer. Für 14.0% ist die Konstante auf 1140 
zu ändern. Das Wort Z3 druckt die Anzahl der Hefte, die Bezeichnung, 
den Bruttopreis und den Nettopreis aus. Danach berechnet es im SUM 
die Nettosumme aus. Falls ein Rabatt gewährt wurde, wird dieser 
berechnet und durch Z4 vom Nettobetrag abgezogen. Am Rechnungs- 
ende wird der Nettogesamtbetrag und die Mehrwertsteuer ausgewiesen. 
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SCH # 144 

U FAW UDN* EF) 

CODE UDN* [ DN-D'} 

0 # LDY, BOT 4 + LDA, N STA, 

BOT 4 + STY, BOT 5 + LDA, 

N 1+ STA, BOT 5 + STY, SEC LDA, 
N 2+ STA, SEC STY, SEC 1+ LDA, 

N 3 + STA, SEC 1+ STY 16 # LDY, 
CS IF, 

N LDA, BOT 4 + ADC, BOT 4 + STA, 
N 1+ LDA, BOT 5 + ADC, BOT 5 + 
10 STA, N 2+ LDA, SEC ADC, SEC STA, 

11.N 3 + LDA, SEC 1+ ADC, SEC 1+ 

12 STA, 

13 THEN, DEY, 0= 

14 UNTIL, INX, INX, NEXT JUMP, 

15 END-CODE 


ovooQnprum-_-6öo0 


9.4 Das Wort UDN* 


Danach werden die Versandkosten berechnet. Diese sind ebenfalls in 
Block 79 eingetragen. Eine andere Möglichkeit, die Versandkosten zu 
berechnen ist folgende. In einem Block wird eine Tabelle der Versand- 
kosten angelegt. Abhängig von der Stückzahl werden diese dann aus 
dieser Tabelle geholt und berechnet. 


Das Wort IRE schreibt eine Rechnung aus. Das Programm zeigt Ab- 
bildung 9.5, ein Beispiel ist in Abbildung 9.6 zu sehen. 


101 


SCH # 140 


D ( START MAILING LIST VAR EF) 
1 0 VARIABLE CNT O VARIABLE #NR 
2 : PRON 1 PR# ; 

3 : PROF O PR# ; 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 —> 

14 
15 
SCR # 141 

D ( COMMON SCREENS BEGIN EF) 
1 FORTH DEFINITIONS 

2 0 VARIABLE H OD VARIABLE V 

3 :HO ( n) D DO SPACE IH +! 
4 LOOP ; 

5 :VE(n)DDO CR IV+l 

6 OH ! LOOP ; 

7 : ATYPE -DUP IF OVER + SWAP 

B DO I C@ 127 AND DUP 0= 

9 IF DROP ELSE EMIT 1 H +! 


10 THEN LOOP ELSE DROP ENDIF ; 
11 : PRINT Ü NA) PAD + SWAP 
12 _-TRAILING ATYPE ; 


14 —> 
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SCR # 142 


0 [ BUSI FORMAT ef) 
4 : ADJ ( n) H@ - -DUP IF HO 
2  THEN ; 
3 : PTEX> ( nan'!) ADJ PRINT ; 
4 : TEX IL ann!) ADJ -TRAILING 
5  ATYPE ; 
6 : (RADY) ( ann'n") SWAP ADJ 
7 SWAP DUP >R — HO R> ATYPE ; 
B :#NÜd Aas#» ; 
98 :#DM ( d) <# # # 46 HOLD #S 
10 #> ; 
11: #% [ d) <# 37 HOLD # 46 HOLD 
12 #5 #> ; 
13: #DA ( d) <# # # 46 HOLD # # 
14 46 HOLD #5 #> ; 
5. — 
SCR # 143 
0 Lt VIRTUAL MEMORY ef) 
1 80 CONSTANT START 
2 128 CONSTANT RECLEN 
3 : #INDEX ( n-a) RECLEN B/BUF 
4 */MOD START + DUP 356 = OVER 
5 356 > OR IF2 + 
6 THEN BLOCK + ; [ ONLY C64) 
7 : FIRST# ( -a) O #INDEX ; 
8 : +NR 1 FIRST# +! UPDATE ; 
9 : IMEM PAD FIRST# @ #INDEX 
10 RECLEN CMOVE UPDATE +NR ; 
411 : EM ( n) #INDEX PAD RECLEN 
12 CMOVE ; 
13 : IENTRY PAD #NR @ #INDEX RECLEN 
14 CMOVE UPDATE FLUSH ; 
15 —) 
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SC # 144 


vonDl pP@om-20 


( BUSI DATUM INPUT ef) 

D VARIABLE DAT 6 ALLOT 

: DIN 13 WORD HERE COUNT ' DAT 

SWAP CMOVE ; 

» D>S FIRST# 2 + ' DAT SWAP 6 
CMOVE UPDATE ; 

» D<sS FIRST# 2 + ' DAT 6 

CMOVE ; 


150 LOAD 


# 150 

Ü FORTH EXAMPLES EF) 
: CU ÜZS)ICH CV; 

: DESCR 0 VARIABLE -2 ALLOT ; 

» Na ' SPACE CFA ' QUIT 10 + !; 


:AQ ' CRCFA !' wıIT 10 + |, 


: IP ( NA) PAD + SWAP EXPECT ; 


(CL) ( N) 0 DO 32 EMIT LOOP ; 
.- 45 EMIT ; 
.— {.N) 0 DO .- LOOP ; 


» PAC ( NA) PAD + SWAP 32 FILL ; 


—?) 


SCR # 151 


D ( FORTH EXAMPLES CNTD EF) 
1 DESCR (N) 0,28, 

2 DESCR (CO) 28 , 23, 

3 DESCR (ST) 51 , 23, 

4 DESCR (PLZ) 74, 7, 

5 DESCR (ORT) 81 , 21, 

6 DESCR (C1) 102, 5, 

7 DESCR (C2) 107 , 7, 

8 DESCR (TEL) 114 , 11, 

g 
10 _) 

11 
12 
13 
14 
15 
SCR # 152 

0 FORTH EXAMPLES CNTD EF) 
1 : {NA NA) 2@ ; : (CO (CO) 2@ ; 
2 : (ST (ST) 2@ ; : (PL (PLZ) 2@ ; 
3 : (0T (ORT) 2@; 

4 : (C1 (01) &@ ; : (C2 (c2) 2e;; 
5 : (TEL (TEL) 2@ ; 

6 

7 :CNA64ACU ; : CCO84 CU; 

B : CST 10 ACU ; : CPL A124 CU; 
9 : COR 12 12 CU ; : CC1 144 CU; 


10 : CC2 14 10 CU; 
11 : CTE 14 18 CU ; 
12 —> 
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SCR # 153 
D [Ü FORTH EXAMPLES EF) 


1: NAC CNA 28 (CL) [NA PAC ; 
2 : COC CCO 23 (CL) [CO PAC ; 
3 : STE CST 23 [CL)J (ST PAC ; 
4 : CYC COR 21 (CL) (OT PAC ; 
5 : PLE CPL 7 (CL) (PL PAC ; 
6 : CIC CC1 5 (CL) (C1 PAC ; 
7 .C2C CC2 7 (CL) [C2 PAC ; 
8 : TEC CTE 11 [CL] [TEL PAC ; 
9 
10 : CL NAC COC STC CYC PLC CAC 
11 C2C TEC ; 
12 > 
13 
14 
15 
SCR # 154 


m] 


0 ( FORTH EXAMPLES CNTD EF) 
1 : WAS 18 2 CU 30 (CL) 18 2 CU 
2." WAS" QIT ; 

3 : NA NAC CNA [NA IP WAS ; 

4 : CO COC CCO [CO IP WAS ; 

5 : ST STC CST (ST IP WAS ; 
6 

7 

8 

9 


: PLZ PLC CPL (PL IP WAS ; 

: ORT CYC COR (OT IP WAS ; 

: C3 CIC CC1 (C1 IP WAS ; 

» C2 C2aC CC2 (C2 IP WAS ; 
10 : TEL TEC CTE (TEL IP WAS ; 
11 : EIN 
12 _CNA (NA IP CCO (CO IP CST 
13 (ST IP CPL (PL IP COR (OT IP 
14 CCi (C1 IP CC2 (C2 IP CTE (TEL 
15 IPWS ; —> 
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SCR # 155 


0 ( FORTH EXAMPLES CNTD EF) 

1 .CMD 20 DO CU 39 .— 21 1 CU 

2 „" EIN MEHR ENDE EXIT LOESCHEN M 

3 ENU" 

4 221 CU 

5." NA CO ST PLZ ORT C1 C2 TEL" ; 

6 

7 : 45 SPACE ; : 35 3 SPACES ; 

8 : 55 5 SPACES ; 

9 
10 —> 
11 
12 
13 
14 
15 

SCR # 156 

0 L( BUSINESS MASK cntd ef) 

1 .I 0 DO I 1+ 10 MOD 48 + 

2 EMIT LOOP ; 

3 : AR En) 3 CU 38 3 DO .- LOOP ; 

4 :2RA6 3CU.- 6 32CU6 .—; 

5 :3R (En) DUP 3 CU .- 27 CU 

6 11 .— ; 

7:49 12 3CU .- 12 11 CU .- 

8 1233CU5 .—; 

9 : 5R 14 3 CU .- 14 9 CU .„- 14 17 
10 Cu .- 14 29 CU 6 .— 14 37 CU 
91 o, 

12 :6R 16 4CU5 .I.- 7.1 
13 Ed Im RER OBEN. 2 

14 

15 —) 
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SCR 
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SCR 


# 157 
( BUSINESS ADDR INPUT cntd ef) 
: MASK CLR 5 AR 2R 7 AR 8 3R 9 
AR 10 3R 11 AR AR 13 AR 5R 
15 IR 6R ; 
: „ADDR CR 35 [NA PRINT CR 
35 (CO PRINT CR 38 {ST PRINT CR 
35 (PL PRINT 18 (0T PRINT CR 
35 (C1 PRINT 18 {C2 PRINT CR 
35 (TEL PRINT ; 
: „MAD CLR MASK CNA {NA PRINT 
CCO (CO PRINT CST {ST PRINT 
CPL {PL PRINT COR (OT PRINT 
CC1 (C1 PRINT CC2 (C2 PRINT 
CTE (TEL PRINT ; 


: .„MSG 2 10 CU ." ADRESS-VERW 
ALTUNG" ; —> 
# 158 


( BUSINESS ADDR INPUT cntd ef) 
.MSG1 CLR .MSG 4 2 CU 

„" TERMINAL EINGABE" 5 11 CU 

." SUCHE <BZ> <NAME>" 6 5 CU 

." <NR> FINDE" 7 11 CU 

«" INHALT" 

10 2 CU 

." DRUCKER LABEL" 11 11 CU 

." SUCHE <BZ> <NAME>" 

712 11 CU ." INHALT " 

13 5 CU ." <NR> DRUCKE" 


15 2 CU .„" RUN" 16 2 CU 
." NEU " 17 2 CU .„" ABO" 
18 2 CU ." WAS " QUIT ; —> 


SCR # 159 
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( BUSINESS SEARCH ef) 
DO VARIABLE WO 
['] [COMPILE] ' ; 
(VERGL) ( aa'c-f} 
BEGIN ROT DUP C@ >R DVER I = 
R> SWAP DUP IF 0 
ELSE DROP >R ROT DUP C@ 
R> = DUP DUP THEN WHILE 
2DROP 1+ >R 1+ R> ROT 
REPEAT >R 2DROP 2DROP R> ; 
: WHAT ['] 2 - EXECUTE SWAP 
DROP DUP wo ! 13 WORD HERE 
COUNT ROT PAD + SWAP CMOVE ; 
_) 


# 160 


{ BUSINESS SEARCH cntd ef) 
: VERGL PAD WO @ + #NR @ #INDEX 
WO @ + 32 (VERGL) ; 
: NIL CR „" NICHT IN LISTE " ; 
: EOLCR ." ENDE DER LISTE " ; 
: „NAME #NR @ @MEM .ADDR ; 
: PADC PAD RECLEN 32 FILL ; 
ı EINGABE MASK „CMD 
FIRST# @ DUP #NR 1 44 CU. 
WAS ; 
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SCR # 161 


ovonoumı Pam >20 


[ BUSINESS OUTPUT 

3? ( -FICNT@3=; 
: (CONTENT) { n) 

DUP . @MEM „ADDR 

4 CNT +! 3? IF KEY O CNT ! 

CLA 32 = 1 XoR IF .MS6G1 

THEN THEN ; 

: „CONTENT CLR  OCNT ! 

CR FIRST# @ DUP 1 = 1 XOR 

IF 1 DO I (CONTENT) 

CA LOOP THEN EOL KEY DROP 

.MSG1 ; 

_-?> 
# 162 

Ü BUSINESS SEARCHING ontd 

: MOVE> PAD PAD 128 + RECLEN 

CMOVE ; 

: <MOVE PAD 128 + PAD RECLEN 

CMOVE ; 

: FOUND MOVE> #NR @ {CONTENT 

CR <MOVE ; 

(SEARCH) DO I #NR ! VERGL 
"IF FOUND DROP 1 THEN LOOP ; 
: SEARCH O CNT ! PADC CLR 

WHAT 0 FIRST# @ 1 (SEARCH) 

IF EOL ELSE NIL THEN KEY 

DROP .MS6G1 ; 

—?) 


ef) 


ef) 


) 


SCR # 164 
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( BUSINESS ENTRY ef) 
: MEHR IMEM CL FIRSTF  4AACUU. 


WAS ; 


: ENDE !MEM FLUSH .MSG1 ; 
: EXIT IENTRY .MSG1 ; 
: MENU „MSG1 ; 


(FINDE) ( n) DUP #NR ! DUP 
@MEM „MAD 4 ACU. ; 


: FINDE (FINDE) .CMD WAS ; 


.* PAD RECLEN 32 FiLL ; 


: LOESCHEN „* !ENTRY CL WAS ; 
—?> 


# 166 
( BUS. MAILING LABEL PRINT ef) 
36 CONSTANT PH 


8 CONSTANT PV 


: PADD PAD RECLEN + ; 
: TABS [ nn!) SWAP - D DO SPACE 


LOOP ; 


: HTAB { n) PH TABS ; 


(DR) ( naa'-n!) + SWAP 


-TRAILING DUP ROT SWAP ATYPE ; 
: SPAD ( a) DUP RECLEN 


4 + + SWAP DO I C@ 0= 
IF 32 I C! THEN LOOP ; 


55 2 SPACES ; 
: NCR { n) 0 DO CR LOOP ; 
: 0Z D #N DUP >R ATYPE R> HTAB 


D #N ATYPE ; —> 
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SCR # 167 
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( BUSI. PRINTING cntd ef) 
: 1Z PAD SPAD [NA PAD (DR) 
HTAB [NA PADD (DR) DROP ; 
: DZ PAD SPAD {CO PAD (DR) HTAB 
(CO PADD (DR) DROP ; 
: 3Z PAD SPAD (ST PAD (DR) HTAB 
{ST PADD (DR) DROP ; 
: AZ PAD SPAD (PL PAD (DR) 10 
TABS 10 (OT PAD (DR) + HTAB 
{PL PADD (DR) 10*TABS (OT 
PADD (DR) DROP ; 
: 5Z PAD SPAD (C1 PAD (DR) 18 


1 + (C2 PAD (DR) + 15 1 + [TEL 
PAD (DR) + HTAB (C1 PADD (DR) 15 


(cC2 PADD (DR) 15 [TEL PADD (DR) 
EDROP DROP ; —> 


# 168 


[ BUSI. PRINTING cntd ef) 
: DRUCKE SS 0Z CR SS 1Z CR SS 
2Z CR SS S3ZCRCRAZCR ; 
(MEM@) CNT @ DUP @MEM 
1 CNT +! ; 

: MEM@ ( a) BEGIN [MEM@) PAD C@ 
42 = DUP IF SWAP DROP THEN 
NOT UNTIL ; 

: FIN? [ -f) CNT @ FIRST# @<;; 
(LABEL) BEGIN FIN? 
WHILE MEM@ MOVE> FIN? NOT IF 0 

PADC DRUCKE 3 NCR ELSE MEM@ 

DRUCKE 3 NCR THEN REPEAT ; 
„LABEL PRON 1 CNT ! {LÄBEL) 
PROF .MSG1 ; —> 


SCR 
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# 169 
( BUSI PRINT SEARCH ef) 
: @&MN #NR @ DUP @EM 1 CNT +! ; 
: RC RECLEN ; 
: M> PAD PAD 256 + RC CMOVE ; 
: <M PAD 256 + PAD RC CMOVE ; 
: CNTO ( -f) CNT @ 2 MOD 0= ; 
: „SUCHE M> @MN 
CNTO IF MOVE> ELSE DRUCKE 
3 NCR THEN <M ; 
({SUCH)) DO I #NR ! VERGL 
IF „SUCHE THEN LOOP ; 
(SUCHE) 1 CNT ! PADC PRON 
WHAT DO FIRST# @ 1 ((SUCH)) 
CNTO IF DO DRUCKE THEN 
PROF .MSG1 QUIT ı.— 
# 170 
( BUSI „INHALT ef) 
: LL 64 0 DO .- LOOP ; 
: IDRUCK DRUCKE 5Z CR LLCR ; 
» (.INHALT) 1 CNT ! BEGIN FIN? 
WHILE MEM@ MOVE> FIN? NOT IF 0 
PADC IDRUCK ELSE MEM@ IDRUCK 
THEN REPEAT ; 
„INHALT PRON L(.INHALT) 
PROF .MSG1 ; 
—)> 
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SCR 
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# 179 

( BUSI VOCABULARY DRUCKER ef) 
VOCABULARY DRUCKER IMMEDIATE 
DRUCKER DEFINITIONS 

: LABEL .LABEL ; 

: INHALT „INHALT ; 

: SUCHE (SUCHE) ; 

FORTH DEFINITIONS 

VOCABULARY TERMINAL IMMEDIATE 
TERMINAL DEFINITIONS 

» INHALT „CONTENT ; 

: SUCHE SEARCH ; 

FORTH DEFINITIONS 

: RUN CLR NG EMPTY-BUFFERS 
„MSG1 ; 

: NEU 1 FIRST# | UPDATE FLUSH 
.MSG1 ; —> 


172 
ABO EF) 
VARIABLE RE# 
VARIABLE SM 2 ALLOT 
VARIABLE ANZ DO VARIABLE RAB 
VARIABLE VSK 2 ALLOT 
: ABO CLR 4 2 CU 
." DATUM TTMMJJ" 5 2 CU 
." RECHN# NNNN" 6 2 CU 
." RES RECHNUNGEN SCHREIBEN" 
72CU 
." <N> REC RECHNUNG FUER KUNDE 
N SCHREIBEN" 
11 2 CU .„" WAS" QUIT ; 
: #EIN Ü -D) 13 WORD HERE DUP C@ 
1+ + 32 SWAP C! HERE NUMBER ; 
—) 


oooon®%Fs 


SCR # 173 
D ( ABOVERWALTUNG START EF) 
: „ADR 
{NA 10 PTEX> 1 VE 
{CO 10 PTEX> 1 VE 
{ST 10 PTEX> 1 VE 
(PL 10 PTEX> (0T 18 PTEX> 
IVE; 
VERLAG 1 @MEM D V ! 4 VE 
.ADR ; 
«KUNDE { N) @MEM 1 VE 
10 ‚ADR ; 
11 : DATUM DIN D>S FLUSH ABO ; 
12 : RECHN# #EIN DROP RE# |! ABO ; 
13 : (MES) [ AN-N'!) 32 * SWAP 
14 BLOCK + ; 
15 —> 


oonnoulPpom - 


SCR # 174 

( ABOVERWALTUNG CNTD EF) 

: MES { ANN') >R [MES) 32 R> 
TEX> ; 


.DAT ' DAT HERE 1+ 6 CMOVE 
HERE DUP 8 + 32 SWAP C! 
NUMBER #DA 67 TEX> ; 

: 21 2 VE 79 2 27 MES ; 

: ZD 2 VE 79 3 10 MES RE# @ 0 #N 
18 TEX> „DAT ; 

10 : P>Z [ NA-D) PAD + SWAP HERE 1+ 

11. SWAP CMOVE HERE NUMBER ; 


oonoun pP@om-—-6o 


12 : ANZI (C1 P>Z DROP ANZ ! ; 

13 : RAB! (C2 P>Z DROP RAB ! ; —> 
14 

15 
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SCH # 175 
D ( ABOVERWALTUNG CNTB EF) 
1 1070 CONSTANT MWST 


2 : NET Ü DN-D') >R 1000 UDN* 

3 RM/MOD ROT R> 2/1 - > IF 
4 1. 0D+ THEN ; 

5 

6 : BRT ( DN-N') UDN* 1000 M/MOD 
7 ROT 499 > IF 1. D+ THEN ; 

8 

9 : „ANZ ANZ @ DO #N 15 6 [RADU) ; 
10 : .BZ 79 0 32 MES ; 

11 ‚PR 79 1 (MES) 5 52 8 (RADJ) ; 
12 .NPR 79 BLOCK 31 + NUMBER 
13 MWST NET 2DUP SM 21 #DM 61 8 
14 (RADJ] ; 
15 —> 

SCR # 176 

D { RECHNUNGSCHREIBEN CNTD EF) 
1 : SUM SM 2@ ANZ @ UDN* SM 2! ; 
2 : „SU SM 2@ #DM 69 9 [RADUJ) ; 

3 

4 : 23 5 VE ANZI .ANZ .BZ .PR .NPR 
5 5SUM .SU ; 

6 

7 0 VARIABLE SME 2 ALLOT 

8 : RABATT RAB! SM 2@ RAB @ UDN* 
9 100 M/MOD ROT 49 > IF 1. D+ 
10 THEN SME 2! SM 2@ SME 2@ 

11 DMINUS D+ SM 2! ; 
12 „RA 53 ADJ RAB @ DO #N ATYPE 
13 79 455 MES SME 2@ #DM 63 9 
14 (RADU) ; 
15 —> 


SCR 
0 


oo,oanPwmnm > 


# 177 
( RECHNUNGSCHREIBEN CNTD EF) 
: ZA RABATT 2 VE .RA ; 


.EPR SM 2@ #DM 69 9 (RADJ) ; 
.BT ( DN) >R #DM R> 9 (RADU) ; 


.MWST 79 5 32 MES 1000 - 0 #% 
60 6 (RADJ) ; 
: 25 5 VE .EPR ; 


: MW1 SM 2@ MWST BRT 2DUP SME 21 
SM 2@ DMINUS D+ 69 .BT ; 
» Z6 1 VE MWST .MWST MW1 ; 


—)> 


# 178 

Ü RECHNUNGSSCHREIBEN CNTD EF) 

: .„VSK 79 BLOCK 191 + NUMBER 
2DUP VSK 2! MWST NET 69 .BT ; 


: Z7 1 VE 78 0 32 MES .VSK ; 
: Z9 1 VE 78 1 32 MES 
VSK 2@ SME 2@ D+ 69 .BT ; 


: MW2 VSK 2@ 2DUP MWST NET 
DMINUS D+ 69 .BT ; 

» ZB 1 VE MWST .MWST MW2 ; 

ı Z10 1 VE 78 2 20 MES ; 

: RE ( N) „VERLAG „KUNDE Z1 Z2 
Z3 2 VE Z4 Z5 Z6 Z7 ZB Z9 Z10 
75V@-VE1RE# +; 
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SCR # 179 


DU POnm-O 


REC ( N) PRON 1RE PROF ; 


RES PRON FIRST# @ D DO I 1RE 
LOOP PROF MENU ; 


Ü RECHNUNGSSCHREIBEN ENDE EF) 


9.5 Programm Adressverwaltung mit Rechnungsschreiben 


VERLAG DER COMPUTERFREUNDE 


ABT. RECHNU 
GRUENE BAUM 
D-8000 MUE 


NGSWESEN 
STR. 27 
NCHEN 


HANS PETER MUELLER 


MEISTER 
LINDENWEG 2 


D-7500 KAR 


NUMMER 100 


100 


zZ 


B 
LSRUHE ; 
RECHNUNG 
2 3.04.84 
ELCOMP HEFT 4/5 6.00 3.61 561.00 
25% RABATT - 140.25 
420.75 
MEHRWERTSTEUER 7.0% 29.45 
VERSANDKOSTEN 4.67 
MEHRWERTSTEUER 7.0% 0.33 
RECHNUNGSBETRAG 455.20 
AHLBAR REIN NETTO 30 TAGE ZIEL 


9.6 Beispiel 


Das Programm enthält folgende systemabhängige Worte: 


PRON Schaltet Drucker ein. 

PROF Schaltet Drucker aus. 

CU ( ZS) Setzt Cursor in die Zeile Z und Spalte S. 
CLR Löscht Bildschirm. 


Das Wort .MSG1 wird mit QUIIT verlassen. Dadurch wird kein OK 
ausgegeben, aber ein CR. Das Wort NQ ersetzt in QUIT die 
Codefeldadresse von CR durch die Codefeldadrese von SPACE. 
Dadurch bleibt der Cursor hinter WAS stehen. An der verwendeten 
FORTH-Version ist zu prüfen, ob der Abstand zwischen der Parameter- 
feldadresse von QUIT und dem Eintrag der Codefeldadresse genau 10 
Ist. Wenn nicht, so ist diese Zahl in NO und AQ zu ändern. AQ stellt 
den alten Zustand von QUIT wieder her. 
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Notizen 
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Ein kleines 
Spielchen 


Dus folgende kleine Spiel “BRAIN TEASER‘ sieht auf den ersten Blick 
hurmlos aus. Es bedarf jedoch einiger Überlegung, um mit sechs Zügen 
ıliv Lösung zu finden. Auf dem Bildschirm wird eine 3 x 3 Matrix, die 
sufällig mit Nullen und Einsen gefüllt ist, ausgegeben. 


Nuispiel: 


oo- 
-00 
oo- 
S$- 
oanm 
oow 


Die nebenstehende Matrix zeigt die Bezeichnung der Elemente. Aus 
ılieser Anfangssituation soll durch Ändern der Nullen und Einsen die 
l.ösung 


ao. 
- o—_ 
na... 


vrreicht werden. 


Dazu stehen folgende Befehle zur Verfügung: 


Wird das mittlere Element 5 vertauscht, so ändern sich auch die 
Flemente 2, 4,6 und 8. Aus 


wird 


oo-— 
-=0o0o0 
oo— 
o-- 
o—-- 
o—-- 
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Wird ein Elemment in einer Ecke (1 3 7 9) vertauscht, so ändern sich 
auch die drei benachbarten Elemente. Wird das Element 1 geändert, su 
erhält man aus 


Wird ein Element in der Mitte einer Zeile oder Spalte (2 4 6 8) ge 
ändert, so ändern sich auch die beiden anderen Elemente in dieser Zeile 
oder Spalte. Wird Element 8 geändert, so erhält man aus 


Werden beim Vertauschen alle Elemente Null, so hat man verloren. 


Im Programm in Abbildung 10.1 ist jedem Element der Matrix ein Bit 
der obersten Zahl im Stapel zugeordnet. Bit 1 entspricht Element 1, 
Bit 2 entspricht Element 2 usw. 


Das Wort DR zeichnet eine Zeile der Matrix. Durch 2 / MOD SWAP . 
wird der Rest der Division mit 2 auf den Bildschirm ausgegeben. Dies 
wird in einer Schleife dreimal ausgeführt. 


Das Wort DRAW zeichnet die Matrix auf den Bildschirm. Dieses Wort 
verwendet das Wort CU. CU ist rechnerspezifisch und setzt den Cursor 
auf dem Bildschirm. Die oberste Zahl auf dem Stapel ist die hori- 
zontale, die zweite Zahl ist die vertikale Position auf dem Bildschirm. 


Neben der Matrix wird noch die Bezeichnung der Elemente ausgegeben. 


Enthält die neue Matrix nur Nullen, so hat man verloren. 


Für das Vertauschen der Elemente wird die EXCLUSIV-ODER 
Funktion verwendet. 
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A B XOR ergibt 


A B XOR 
000 
011 
101 
110 


Int A gleich O, so bleibt in B das Bit erhalten, ist A gleich 1, so wird der 
Inhalt von B vertauscht. 


Wird also Element 5 geändert, so ändern sich auch die Elemente 246 
und 8. Das ergibt folgendes Bitmuster: 


oO-0 
-.60o 
oO-0 


Bit 1 ist das am weitesten rechts stehende Bit. 

Die Zahlen 1 bis 9 bilden die EXCLUSIV-ODER Funktion mit dem 
obersten Wort aus dem Stapel und zeichnen das neue Bitmuster auf 
diem Bildschirm. 


Vorsicht, wenn man später mit anderen Worten arbeitet, denn die 
Zahlen 1 bis 3 sind Konstante, die im Kernel definiert sind. 


Die Zeilen 7 bis 10 sind ein Zufallsgenerator. In GAME wird eine 
Zufallszahl kleiner 512 erzeugt und diese als Bitmuster ausgegeben. 


Durch Eingabe der Nummer eines Elementes werden die entsprechen- 
den Elemente vertauscht. Werden dabei alle Elemente Null, so hat man 
verloren. Ein Beispiel zeigt Abbildung 10.2. 
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[dp] 
[$) 
2 


# 117 
{ FAwW BRAIN TEASER EF] 
: DR { N-N') 3 0 DO 2 /MOD 

SWAP . LOOP ; 

DRAW Ü N-N) DUP 
10 10 Cu DR 10 20 Cu ." 1 23" 
11 10 CU DR 11 20 CU ." 456" 
12 10 Cu DR 12 20 CU ." 789" 
DROP DUP 511 AND O= IF 
CR „" VERLOREN" DROP THEN ; 
2 BASE |! 
10 : 5 010111010 XOR DRAW 
11 : 1 000011011 XDR DRAW 
12 : 3 000110110 XOR DRAW 
13 : 7 011011000 XDR DRAN 
14 : 9 110110000 XOR DRAW 
15 —-> 


oosouPpPpwm-60 


[d7} 
oO 
2 


# 118 

[ FAw BRAIN TEASER CNTD EF} 

: 2 000000111 XOR DRAW ; 

: 4 001001001 XOR DRAW ; 

: 6 100100100 XDR DRAW ; 

: 8 111000000 XOR DRAW ; 

DECIMAL 

2 VARIABLE RND HERE RND |! 
RANDOM RND @ 31421 * 6972 + 

DUP RND ! ; 
10 : RNDNR RANDOM U* SWAP DROP 
11 : GAME CLR 512 RNDNR DRAW 


ooomnmpr@om—60 


10.1 BRAIN TEASER 
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89 


1 


B 


OK 


-oOxw 


789 


OK 


noo 


OK 


wcecoO 


789 


89 


1 


1 


OK 


OK 


oOx- 


000 


10.2 Ein Beispiel 
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Der 
6502 Assembler 
von W.F. Ragsdale 


er im folgenden beschriebene Assembler für 6502 Systeme ist in 
FORTH DIMENSIONS VIII, NR5, PP 143-150 veröffentlicht. Er 
wurde von W. F. Ragsdale der Öffentlichkeit frei zur Verfügung gestellt. 
Diese Beschreibung ist eine gekürzte, freie Übersetzung der obigen 
Veröffentlichung. 

Kinige Beispiele wurden zusätzlich mit aufgenommen. 


Dieser Assembler besitzt folgende Eigenschaften: 


—_ 


. Vom Benutzer können jederzeit MACROS definiert werden. 


nm 


.„Zahlenangaben können in einer beliebigen Zahlenbasis gemacht 
werden. 


3.In den Ausdrücken können alle Rechnungsarten verwendet werden. 


4. Zur Programmierung werden strukturierte Schleifen mit bedingten 
Anweisungen verwendet. Es sind keine Marken zugelassen. 


5.Der Assembler selbst ist in FORTH geschrieben und belegt 1300 
Byte Object Code. 


Bei der Assemblierung enthält die Variable CONTEXT die Wörterbuch- 
udresse des Assemblers. Worte aus dem Eingabespeicher werden zuerst 
in Assembler, dann in FORTH, in den vom Benutzer aufgestellten 
Wörterbüchern und zuletzt im FORTH Kernel gesucht. Wird das Wort 
nicht gefunden, wird untersucht, ob es sich um eine Zahl handelt. Ist 
dies nicht der Fall, so wird mit einer Fehlermeldung abgebrochen. 
Dies ist die übliche Reihenfolge, mit welcher der FORTH-Interpreter 
Worte in das Wörterbuch aufnimmt. 
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Während der Assemblierung einer CODE-Definition werden die Wortu 
in ausführbaren Maschinencode übersetzt. Dabei werden für die Ver 
zweigungen die nötigen Adressrechnungen durchgeführt. Die bedingten 
Anweisungen wie IF, BEGIN, UNTIL werden ebenfalls in Adressen 
oder Maschinencode übersetzt. 


Während der Laufzeit des Programms, wenn also die CODE Worte auf 
gerufen werden, wird dieser erzeugte Maschinencode durchlaufen. Dies 
geschieht unter der Kontrolle des Interpreters. Das Ende eines CODE 
Wortes ist also kein RTS, wie in Maschinensprache üblich, sondern ein 
absoluter Sprung nach NEXT. Dies ist für den inneren Interpreter div 
Aufforderung, das nächste FORTH Wort zu verarbeiten. Da in Ma 
schinencode die Register der CPU benötigt werden. Dies gilt besonders 
für das X-Register, das in 6502 FORTH als Stapelzeiger verwendet 
wird. Dafür ist im Kernel eine feste Adresse XSAVE reserviert. 


Die meisten Assemblerworte sind mit einem “,’‘ abgeschlossen. Diese 
Schreibweise hat drei Gründe: 


1. Das Komma zeigt den logischen Abschluß einer Anweisung an und 
entspricht somit einer Zeile in Assemblerschreibweise. 


2.in FORTH speichert das Komma eine Zahl im Wörterbuch. Somit 
wird durch das Komma angezeigt, das diese Anweisung im Wörter: 
buch gespeichert wird. 


3. Das Komma unterscheidet bestimmte Befehlscode von möglichen 
Hexzahlen, wie ADC oder ADD. 


Der Assembler führt mehrere Tests auf Fehler in der Eingabe aus. 


1. Alle bedingten Anweisungen müssen richtig geschachtelt und ge: 
paart sein. 

2. Die Adressierungsarten und Operanden müssen bei den Befehls. 
codes erlaubt sein. 


3. Alle Parameter, die in CODE benutzt werden, müssen entferni 
werden 
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Dinse Tests werden durch Überwachung des Stapels und durch Bit- 
musken für die Adressierungsarten durchgeführt. 


Wird ein Fehler gefunden, so wird das Wort END-CODE nicht durch- 
Inufen und die Definition bleibt unsichtbar im Wörterbuch. 


ie Fehlermeldung DEFINITION NOT FINISHED erscheint, wenn 
ıtı Wert der USER Variablen beim Ende der Definition vom Wert des 
"tupelzeigers abweicht. Die Fehlermeldung CONDITIONALS NOT 
"AIRED wird ausgegeben, wenn Fehler bei der Verschachtelung auf- 
traten. Ist bei einem Befehlscode die angegebene Adressierung nicht 
möglich, so erscheint die Meldung HAS INCORRECT ADRESS MODE. 


fichreibweise der Adressierungsarten 


I ur die einzelnen Adressierungsarten sind folgende Schreibweisen fest- 
yolegt: 


# unmittelbar nur 8Bit 

‚X mit X indiziert Zero-Page absolut 

‚Y mit Y indiziert Zero-Page absolut 

X) indiziert indirekt nur Zero-Page 

)Y indirekt indiziert nur Zero-Page 
Speicher Zero-Page absolut 


I s folgen einige Beispiele in FORTH-Assembler und normaler Assembler 
Schreibweise: 


‚A ROL, ROL A oder ROL 
1# LDY, LDY#1 
DATA ‚X STA, STADATA,X 
DATA ‚Y CMP, CMPDATA,Y 
6 X) ADC, ADC (6,X) 
POINT )Y STA, STA (POINT),Y 
VECTOR ) JMP, JMP (VECTOR) 


Einige Besonderheiten bei der Implementierung von FORTH auf 6502 
Systemen. 


Der Datenstapel wird in der Zero-Page angelegt und wächst zu niederen 
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Adressen. Die Anfangsadresse ist rechnerabhängig. Das X-Register wird 
als Stapelzeiger verwendet. Ein Element des Stapels ist ein 16-Bit Wort 
und belegt somit 2 Byte. Die Befehlsfolge INX, INX, entspricht dem 
Wort DROP. Um auf das unterste und das zweite Wort auf dem Stapel 
zugreifen zu können, sind im Assembler zwei Worte BOT und SEC 
vereinbart. 


BOT LDA, entspricht LDA (0,X) 
SEC LDY, entspricht LDY (2,X) 


Mit 


BOT LDA 
BOT 1+ LDA, 


werden die niederwertigen 8 Bit des obersten Elementes auf dem 
Stapel im Akkumulator und die höherwertigen 8 Bit im Y-Register 
gespeichert. Die folgende Zeichnung zeigt die Bezeichnung für die 
obersten zwei Elemente des Stapels. 


SEC HIGH 
SEC LOW 


BOT HIGH 
BOT LOW 


0,X 


Der Prozessor Stapel der 6502 CPU wird in der üblichen Weise ver- 
wendet. Das Wort RP) bringt die Adresse des tiefsten Elementes auf den 
Datenstapel. Dort ist das zuletzt auf dem Return-Stapel abgelegte Byte 
gespeichert. Denn auch dieser Stapel wächst zu niedrigeren Adressen. 


Bedingte Verzweigungen 


Der Assembler benötigt keine Marken. Diese werden durch zwei Be- 
sonderheiten ersetzt. Jedes in FORTH definierte Wort kann jederzeit 
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in einer CODE Definition verwendet werden. 
/weitens wird die Assemblierung durch bedingte Verzweigungen 
BEGIN,....cc UNTIL, 


und 
ceIF,...ELSE,...THEN, 


wsteuert. Die Abkürzung cc bedeutet Condition Code. Dieser Code 
steuert die Verzweigung. 


us folgende Beispiel zeigt die Programmierung einer Warteschleife. 


CODE DEMO1 

128 # LDA, 

N STA, 

BEGIN, 

N DEC, 

0= 
UNTIL, 
NEXT JMP, END-CODE 


Die Hilfszelle N wird in einer BEGIN,.... UNTIL, Schleife dekremen- 
tiert. Als Bedingung für den Schleifenabbruch wird die Abfrage 0= 
vorwendet. Wenn diese Bedingung erfüllt ist, wird das nächste Wort 
interpretiert. Das Programm erzeugt folgenden Code. 


255 Se 4 4D 4 Ei R..DEMOL 
35 Di 25 Aa Sa GE de DETI>..F 
Ce 4a Da Fü AaG 52504 FFFALR.. 


Dus Wort BEGIN, legt bei der Assemblierung die augenblickliche 
Adresse und eine Eins auf dem Stapel ab. Das Wort UNTIL benutzt 
nun bei der Assemblierung diese Adresse für einen bedingten, relativen 
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Sprung zurück ins Programm. Die Art der Verzweigung wird durch cı 
bestimmt. Die von BEGIN ebenfalls abgelegte Eins wird zur Fehler 
prüfung verwendet. 


Als Bedingungen für die Verzweigung können folgende Abfragen ein 
gesetzt werden: 


0= Verzweigung, wenn Inhalt von Register oder Zelle Null ist. 


O0 Verzweigung, wenn Inhalt von Register oder Zelle kleiner Null 
ist. 


CS Verzweigung, wenn das CARRY-Bit gesetzt ist. 


Das Wort DEMO ist ein Beispiel für eine Verzweigung mit IF, ELSE, 
THEN,.. 
HEX 
CCOO CONSTANT PORTA 
CODE DEMO 
PORTA LDA, 
0< IF, 
DEY, 
ELSE, 
INY, 
THEN, 
NEXT JMP, END-CODE 
DECIMAL. 


Je nachdem, ob der eingelesene Wert kleiner oder größer Null ist, wird 
das Y-Register erniedrigt oder erhöht. 

Das nächste Beispiel zeigt die Verschachtelung von bedingten Ver- 
zweigungen. 


CODE DEMO2 

BEGIN 

PORTA LDA, 

D0= IF, N INC, 
ELSE, N DEC, 


THEN, 
N LDA, 
D0< UNTIL, 


NEXT JMP, END-CODE 


132 


Wann sich die Verzweigungen überlappen, wird eine Fehlermeldung 
ustegeben. 


Nicht immer kann die Strukturierung durchgehalten werden. Dann muß 
‚lin Fehlerprüfung des Assemblers überlistet werden. Dies wird im 
Anschluß an die Beschreibung des Assemblers im Beispiel Analog- 
Miyital Wandlung beschrieben. 


(her den Assembler kann auf einige Einsprünge im Kernel zuge- 
ıtiffen werden, um Daten vom Maschinenprogramm auf den Stapel 
u legen oder von dort zu holen. 


Mit PUSH wird ein 16-Bit Wert auf dem Datenstapel abgelegt. 


CODE DEMO3 

PORTA LDA, 

PHA, 

0 # LDA, 
PUSH JMP, END-CODE 


Das niederwertige Byte wird über den RETURN-Stapel, das höher- 
wortige Byte wird über den Akkumulator, an PUSH übergeben. 


Mit den gleichen Bedingungen kann eine 16-Bit Zahl auch an PUT 
uhergeben werden. PUT überschreibt mit diesen Werten das oberste 
I Iement des Datenstapels. 


Anstatt mit PUSH, kann man auch mit folgendem Programm Daten 
auf dem Stapel ablegen. 


CODE DEMOA 

PORTA LDA, 

DEX, DEX, 

BOT STA, 

0 # LDA, 

BOT 1+ STA, 
NEXT JMP, END-CODE 


Werden in einem Maschinenprogramm Daten vom Stapel entnommen, 
so kann durch JMP POP der Stapelzeiger um ein, durch JMP POPTWO 
um zwei 16-Bit Worte erniedrigt werden. Beide Einsprünge führen auf 
das Wort NEXT. 
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SCR 
u) 


# 200 

{ 6502 ASSEMBLER BY W.F.RAGSDALE 
FORTH DIMENSIONS VOL 3 P 143 
PUBLIC DOMAIN ) 

HEX 

VOCABULARY ASSEMBLER IMMEDIATE 
ASSEMBLER DEFINITIONS 

[ SYSTEM SPECIFIC CONSTANTS ) 

55 CONSTANT XSAVE 51 CONSTANT W 


53 CONSTANT UP A4E CONSTANT IP 
46 CONSTANT N 

' (DO) OE + CONSTANT POP 

' (DO) OC + CONSTANT POPTWO 

' LIT 13 + CONSTANT PUT 

' LIT 11 + CONSTANT PUSH 


' LIT 18 + CONSTANT NEXT 
--) 


# 201 
( ASSEMBLER CNTD ) 
' EXECUTE NFA 11 - CONSTANT 


SETUP 

0 VARIABLE INDEX -2 ALLOT 
0909 , 1505 , 0115 , 0891 
8009 , 1DOD , 8019 , 8080 
0080 , 1464 , 8014 , 8080 
8080 , 1COC , 801C , 2C80 
2 VARIABLE MODE 


-» 00. 


„AO MODE ! ; : # 1 MODE ! ; 
‚X 3 MODE | ; : ,Y 4 MODE ! ; 
» )Y 6 MODE ! ; : ) F MODE ! ; 
: MEM 2 MODE ! ; : X) 5 MODE ! ; 


: BOT ,X0D ; : SEC ,X2; 
" RP) ‚X 101 ; —> 


[dp] 
[p] 
2 


oonouPp@nmn— 0 


# 202 


( ASSEMBLER CNTD 
: UPMODE IF MODE 
8 MODE +! THEN 
OF AND -DUP IF 
THEN OVER 1+ @ 


: CPU <BUILDS C, 


MEM ; 


00 CPU BRK, 
D8 CPU CLD, 
BB CPU CLV, 
88 CPU DEY, 
CB CPU INY, 
48 CPU PHA, 
68 CPU PLA, 


# 203 

( ASSEMBLER 
40 CPU RTI, 
38 CPU SEC, 
78 CPU SEI, 
AB CPU TAY, 
BA CPU TXA, 
98 CPU TYA, 


: MU <BUILDS C, 


‚, THEN THEN MEM 


) 


@ B AND 0= IF 
THEN 1 MODE @ 
D DO DUP + LOOP 


AND 


0= ; 


DOES> C@C, 


CPU 
CPU 
CPU 
CPU 
CPU 
CPU 
CPU 


CPU 
CPU 
CPU 
CPU 
CPU 


CLC, 
CLI, 
DEX, 
INX, 
NOP, 
PHP, 
PLP, 


RTS, 
SED, 
TAX, 
TSX, 
TXS, 


DOES> 
DUP 1+ @ 80 AND IF 10 MODE +! 
THEN OVER FFOO AND UPMODE 
UPMODE IF MEM CR LATEST ID. 

3 ERROR THEN C@ MODE C@ INDEX 
+ C@ + C, MODE C@ 7 AND IF 


MODE C@ OF AND 7 < IF C, ELSE 
> 
’ 
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SCR # 204 

( ASSEMBLER CNTD ) 
4C6E 60 MU ADC, 1C6E 20 MU AND, 
4C6E CO MU CMP, 1CBE 40 MU EOR, 
AC6E AO MU LDA, 1C6E 00 MU ORA, 
1C6E EO MU SBC, 1C6E 80 MU STA, 
0DOD 01 MU ASL, OCOC C1 MU DEC, 
OCOC E1 Mu INC, ODDOD 41 MU LSR, 
0DOD 21 MU ROL, ODOD 61 MU ROR, 
0414 81 MU STX, DAE“ EO MU CPX, 
0486 CO MU CPY, 145u AD MU LDX, 
DCBE AD MU LDY, 048C BD MU STY, 


0480 14 MU JSA, 8480 40 MU JUMP, 
D480 20 MU BIT, 


A222. 05 
TVTPWDD-OOCODTNDUIT PWM-.O 


SCR # 205 
D ( ASSEMBLER CNTD ) 
1 : BEGIN, HERE 1 ; IMMEDIATE 
2 : UNTIL, ?EXEC >R 1 ?PAIRS R> 
3 C, HERE 1+ -C, ; IMMEDIATE 
4 : IF, C, HERE 0 C, 2 ; IMMEDIATE 
5 : THEN, ?EXEC 2 ?PAIRS HERE 
6 __OVER C@ IF SWAP ! ELSE OVER 
7 4+- SWAP C! THEN ; IMMEDIATE 
8 : ELSE, 2 ?PAIRS HERE 1+ 1 JMP, 
9 SWAP HERE OVER 1+ -— SWAP C! 
10 2 ; IMMEDIATE 
11 : NOT 20 +; 
12 90 CONSTANT CS DD CONSTANT 0= 
13 10 CONSTANT D< 90 CONSTANT >= 
A 0 —) 
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[dp] 
[p} 
fee) 


# 206 

( ASSEMBLER END ) 

: END-CODE CURRENT @ CONTEXT | 
?EXEC ?CSP SMUDGE ; IMMEDIATE 


FORTH DEFINITIONS DECIMAL 
: CODE ?EXEC CREATE [COMPILE] 


ASSEMBLER ASSEMBLER MEM !CSP ; 
--) 


_ 
oovosoıpom+.60 


_ 
—_ 


a... 
P2PWM 


Wörterbuch des Assemblers: 
X  indizierte Adressierung mit X 


‚Y  indizierte Adressierung mit Y 


X  (-cc) (assemblieren) 
Verzweigung, wenn das Negativ-Bit im Statusregister Eins ist. 
Wahrend des Assemblierens wird cc auf dem Stapel abgelegt. 


0. (ce) (assemblieren) 
Verzweigung, wenn das Zero Bit im Status Register Eins ist. 
Während des Assemblierens wird cc auf dem Stapel abgelegt. 


:CODE wird in einer Doppelpunkt-Definition verwendet, um von der 
Programmierung in high level in Assembler umzuschalten. 


Beispiel: 


: (NAME) (WORTN)....; CODE 
(ASSEMBLER) END-CODE 


ASSEMBLER (in FORTH) 
setzt CONTEXT auf Assembler. 
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BEGIN, (-A 1) (assemblieren) 

Während des Assemblierens ist A eine Adresse, bei der elım 
Schleife beginnt. Die Eins wird zur Prüfung der bedingten Verzweigunu 
benötigt. 


BOT ( -N Relative Adresse des niederwertigen Bytes dm 
obersten Elementes auf dem Stapel. Wird beim Assemblieren in din 
indiziert indirekte Adressierung (0,X) gewandelt. 


CODE Ein Definitionswort, das den Beginn eines Wortes, geschrieben 
in Assembler anzeigt. 


CPU (N) (compilieren) 
Ein Definitionswort des Assemblers, das Befehle ohne Adres 
sierung (0,X) erzeugt. 


Beispiel EA CPU NOP, 


CS ( —cc) (assemblieren) 
Verzweigung, wenn das CARRY Bit gesetzt ist. 


ELSE, (A1 2-A22) (assemblieren) 

Der Programmteil hinter ELSE wird während der Laufzeit 
ausgeführt, wenn cc vor IF, FALSE ist. Beim Assemblieren wird ein 
Vorwärtssprung nach THEN, ausgeführt. Die Zwei auf dem Stapel wird 
für die Fehlererkennung benötigt. 


END-CODE Beendet eine CODE-Definition. Dabei findet eine Fehler- 
prüfung statt. Ist kein Fehler aufgetreten wird das Wort in das 
CURRENT Wörterbuch eingetragen. Mit SMUDGE wird es zur Aus- 
führung bereitgestellt. 


IF, (cc-A2) 

Während des Assemblierens wird ein bedingter Vorwärtssprung, 
der von cc abhängt, erzeugt. Die Adresse A bleibt für das zugehörige 
ELSE, oder THEN, auf dem Stapel. Die Zwei wird für die Fehler- 
prüfung benötigt. 
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INDEX (—A) 
Eine Matrix aus Bitmustern, welche die für einen Befehlscode 
«ıüullichen Adressierungsarten prüft. 


" (-A) (assemblieren) 
Während des Assemblierens ist IP eine Konstante, mit der 
Aulıusse des Instruction Pointers. 


Whhrend der Laufzeit enthält IP die Adresse des nächsten Wortes, das 
vun NEXT aufgerufen wird. 


M/CPU (NI1N2) (kompilieren) 
Ein Definitionswort des Assemblers. Es erzeugt Operations- 
codes mit mehrfachen Möglichkeiten der Adressierung. Die 
beiden Parameter sind der Op-Code und das Bitmuster für die 
Prüfung der zulässigen Adressierung. 


MEM setzt MODE auf absolute Adressierung, Zero-Page. 


MODE ( -a) Variable, welche die augenblickliche Adressierungs- 
art enthält. 


N ( —a) (assemblieren) 
Adresse eines frei verfügbaren kleinen Speicherbereichs in der 
Zero-Page. 


NEXT ( -a) (assemblieren) 
Einsprungsadresse für die Ausführung von NEXT. 


NOT (F-F’) Invertieren des cc. 


POP (-A) (assemblieren) 

(N) (Laufzeit) 

Während des Assemblierens eine Konstante, welche die Ein- 
sprungsadresse für POP enthält. 
Während der Laufzeit wird die oberste Zahl vom Stapel entfernt. 
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POPTWO (-a) (assemblieren) 
(NN’) (Laufzeit) 
Während des Assemblierens eine Konstante der Einsprungs 
adresse POPTWO. 
Während der Laufzeit werden die beiden obersten Elemente des Stapeln 
entfernt. 


PUSH (-a) (assemblieren) 

(—n) (Laufzeit) 

Während des Assemblierens eine Konstante, welche den Ein- 
sprung für PUSH enthält. 
Während der Laufzeit wird ein Element auf dem Stapel abgelegt. 


PUT (-a) (assemblieren) 
(n-n‘) (Laufzeit) 
Während des Assemblierens eine Konstante, welche den Ein 
sprung für den Einsprung PUT enthält. 
Während der Laufzeit wird das oberste Element des Stapels über 
schrieben. 


RP) Während des Assemblierens wird eine indirekt indizierte mit 
(101,X) erzeugt. Damit kann über Prozessor Stapelzeiger während der 
Laufzeit auf das oberste Element des RETURN-Stapels zugegriffen 
werden. 


SEC (-A) (assemblieren) 

Relative Adresse des niederwertigen Bytes des zweiten Elements 
auf dem Stapel. Wird beim Assemblieren in die indizierte indirekte 
Adressierung (2,X) gewandelt. 


THEN, (A 2) (assemblieren) 

Während des Assemblierens wird die Adresse A für noch nicht 
aufgelöste Sprünge benötigt. Die Zwei wird zur Fehlererkennung be- 
nutzt. 


UNTIL, (A 1cc) (assemblieren) 

Während des Assemblierens wird ein bedingter Sprung, der von 
cc abhängt zur Adresse a assembliert. Die Eins dient zur Fehlerer- 
kennung. 
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up (-A) (assemblieren) 
Enthält Anfangsadresse der Benutzer Variablen. 


W (-a) (assemblieren) 
Adresse A enthält die Codefeldadresse des Wortes, das soeben 
ausgeführt wird. 
x) indiziert indirekte Adressierung 
XSAVE (-a) (assemblieren) 


Adresse einer Zelle in der Zero-Page zur Zwischenspeicherung 
ılas X-Registers. 


141 


Notizen 
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Analog-/Digital- 
Wandlung 

mit einem 
Digital-/Analog- 
Wandler 


Die Abbildung 12.1 zeigt die Verwendung eines Digital-/Analog- 
Wundlers zur Umwandlung einer unbekannten Analog Spannung in eine 
ıligitale Zahl. Dabei wird das Verfahren der sukzessiven Approximation 
angewendet. Dieses Verfahren entspricht dem binären Suchen in 
wrtierten Listen. Die unbekannte Spannung wird mit der Hälfte der 
maximalen Ausgangsspannung des Wandlers (UFS/2) verglichen. Ist die 
| ingangsspannung größer, so wird UFS/4 addiert, ist sie kleiner, so wird 
UFS/4 subtrahiert. 


Vcc 


JE 


DAW ZNA2BE 
kı E 


RECHNER z.B. C-64 


12.1 Analog-/Digital-Wandlung 
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Dieser Vorgang wird durch einen Rechner über Software gesteuvt 
In Abbildung 12.1 wird der Digital Analog Wandler ZN428E von einanı 
C-64 über das Tor A mit der Adresse DEOO angesteuert. Der Analoy 
Komparator LM393 vergleicht die Ausgangsspannung des Wandlers nılı 
der unbekannten Eingangsspannung. Das Ausgangssignal des Kompa 
rators wird über Bit 7 von Tor B vom Rechner abgefragt. Das Ergebnin 
dieser Abfrage dient zur Verzweigung des Programms. Das Programın 
zeigt Abbildung 12.2. 


[dp] 
[$] 
Pe] 


# 140 
Ü FAW ADW MIT DAW 29.11.EF) 
HEX DEOO CONSTANT PORTA 
PORTA 1+ CONSTANT PORTB 
PORTA 2+ CONSTANT DDRA 
: INIT FF DDRA C! ; 
CODE CONV 80 # LDA, N STA, 
7E # LDA, 
BEGIN, DROP PORTA STA, NOP, NOP, 
PORTB LDY, 0< NOT 
IF, N ORA, THEN, 
N LSR, CS NOT 
IF, N EOR, ROT JMP, 
THEN, 
DEX, DEX, BOT STA, 0 # LDA, 
BOT 1+ STA, NEXT JMP, END-CODE 
;S 
, 


22.295,02. 
VPWPDP>O00C0CODOND IT PDT —O 


12.2 Programm zur Wandlung einer Spannung in eine Zahl 
mittels sukzessiver Approximation 


Die Adressen der Tore werden als Konstante vereinbart. Durch INIT 
wird Tor A zum Ausgang gemacht. Die Umwandlung wird durch das 
in Maschinensprache geschriebene Wort CONV ausgeführt. In der Hilfs- 
zelle N wird das Bitmuster %10000000 gespeichert. An den Wandler 
wird das Bitmuster %01111111 ausgegeben. Damit liegt an B die 
Spannung UFS/2. Diese Spannung wird mit der Eingangsspannung 
vergleichen. Ist UE kleiner als UW, dann ist UC = H. Das Tor B wird 
über das Y Register in den Rechner eingelesen. Da Bit 7 gleich Eins ist, 
ist dies eine negative Zahl. Dadurch wird mit O ( NOT der Befehl N 
ORA, übersprungen. Der Inhalt der Speicherzelle N wird eine Stelle 
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nach links geschoben. Falls das CARRY-Bit dabei nicht gesetzt wird, 
muß mit der Wandlung fortgefahren werden. Dabei wird die oberste 
I Ins im Akkumulator zu Null gemacht. 


Int also die Spannung UE kleiner als die Spannung UW, dann ist der 
Inhalt des Akkumulators 


“00111111=33F 


ııch dem ersten Vergleich. Dieser Wert wird an den Wandler aus- 
uujeben und entspricht der Spannung UFS/4. Zwischen PORTA STA, 
und PORTB LDY, sind zwei NOP, NOP, Befehle eingefügt. Diese ver- 
+öyern das Programm, um dem Komparator Zeit zum Einschwingen zu 
uaben. 


Ist nun die Eingangsspannung UE größer als UFS/4, so liegt an Bit 7 

von Tor B eine Null. Damit wird nach O ( NOT der zwischen IF, und 
IHEN, stehende Befehl NORA, ausgeführt. Damit wird eine Eins in das 
ntsprechende Bit im Akkumulator übernommen, Damit ändern sich 
ılla Zelleninhalte wie folgt: 


Vor Beginn des Vergleichs ist 


A=%00111111 
N =%01000000 


Nach dem Vergleich und nach der Befehlsfoige N ORA, N LSR, 
NEOR, ist 


A=%01011111 
N=%00100000 


Ist Bit 7 gleich Null, so bleibt die Eins im Akkumulator erhalten, ist Bit 
7 gleich Eins, so wird sie gelöscht. 


Um dieses Programm mit dem Assembler schreiben zu können, musste 
die Prüfung des Assemblers auf exakte Strukturierung überlistet werden. 
Die Struktur des Programms ist in Abbildung 12.3 a angegeben. 
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BEGIN, 
(TEIL A) 


CS NOT WHILE 


(TEIL B) 
REPEAT 


12.3a Struktur des Wandelprogramms 


Diese Befehle stehen im Assembler nicht zur Verfügung. Damit muß 
nach Abbildung 12.3b das Programm folgendermaßen geschrieben 


werden. 


BEGIN,( -a1) 
DROP 
(TEIL A) 


CS NOT 
IF ( -b2) 


(TEIL B) 


ROT JMP, 
THEN, 


12.3b Geänderte Struktur 


Das Wort BEGIN, legt die Rücksprungadresse und die Prüfzahl 1 auf 
dem Stapel ab. Das IF, nach der Abfrage legt seine Rücksprungadresse 
und die Prüfzahl 2 auf dem Stapel ab. Ist die Bedingung CS NOT er- 
füllt, so wird durch ROT die von BEGIN, auf den Stapel gelegte Rück- 
sprungadresse in den TOS geholt und mit JMP, dorthin zurückge- 
sprungen. Das auf JMP, folgende THEN, löst die Struktur der Ver- 


schachtelung auf. 
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Rechner- 
kopplung 
über RS232 


Im folgenden wird ein Programm beschrieben, mit welchem Daten, 
Programme zwischen Rechner ausgetauscht werden können. Diese 
techner sind über eine 3-Drahtleitung verbunden. Eine Leitung wird 
tür das Senden von Daten, die zweite Leitung für das Empfangen von 
uten verwendet. Die dritte Leitung ist die gemeinsame Masse. 


In dem Programm werden FORTH-Worte, gemischt mit Maschinen- 
programmen verwendet. Es ist speziell für den APPLE II geschrieben, 
kann aber leicht auf andere Systeme übertragen werden. Die Ab- 
bildung 13.1 zeigt die Interface-Schaltung. Die Empfangsleitung ist mit 
ılem Eingang PBO und CB1 angeschlossen. Eine negative Flanke an 
diesem Eingang löst einen Interrupt aus. Zwischen Eingang und dem 
6522 Baustein muß unter Umständen noch ein Inverter oder ein 
RS232>TTL Wandler MC1489 geschaltet werden. Über PA1 werden 
lie Daten ausgesendet. Auch hier muß meist ein Inverter oder TTL- 
RS232 Wandler MC 1499 nachgeschaltet werden. 


EMPFANGEN 
SIEHE TEXT 


\ 


SENDEN 


13.1 Interface-Schaltung 
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13.1 Empfangen von Daten 


Die Aufnahme von Zeichen erfolgt durch Interrupt. Damit ist sicheı 
gestellt, daß Daten, die zum Beispiel über ein Modem ankommen, auclı 
vom Rechner sofort erkannt und aufgenommen werden. 


Das Wort IRQ löscht mit PORTB C@ das Interrupt-Flag Bit und gibı 
diesen mit 90 IER C! frei. 


Wird nach IRQ eine negative Flanke an CB1 erkannt, so springt dei 
Rechner, ganz gleich, in welcher Sprache er sich befindet, in die Inteı 
rupt Routine IROR. Hier werden zuerst die Register gerettet und danıı 
das Unterprogramm HTIME durchlaufen. Damit wird der Abtastzeit 
punkt für die seriellen Daten in die Mitte des Bit-Impulses gelegt. Nach 
dem Startbit wird das erste Bit eingelesen. Ist es Eins, so wird das 
CARRY-Bit gesetzt und in die Zelle AUX geschoben. Nach jeder Ab 
tastung wird der Inhalt von AUX einmal nach rechts geschoben. Sind 
alle 7 Zeichen eingelesen, wird noch einmal mit LSR nach rechts 
geschoben. Damit ist das Zeichen vollständig übernommen. Nach 
der Freigabe des Interrupts und Übernahme der alten Registerwerte, 
wird über RTI in das unterbrochene Programm zurückgesprungen. Beim 
APPLE II wird der Inhalt des Accumulators beim Einsprung in dio 
Interrupt-Service-Routine des APPLE Il in der Zelle ACC gespeichert, 


C400 26 ORG $C400 
C400 27 ; 

CA00 8A 28 IROR TXA 

C401 48 29 PHA 

c402 98 30 TYA 

C403 48 31 PHA 

C404 A900 32 LDA #00 
C406 A207 33 LDX #07 
C408 BDFEC4A 34 STA AUX 
CA0OB 205204 35 JSR HTIME 
CA0OE 203EC4 36 IRQO SR TIME 
C411 ADCOCO 37 LDA PORTB 
C414 2904 38 AND #01 
C416 38 39 SEC 

C417 D0D1 40 BNE IRQ2 
C419 18 41 CLC 


CA1A 6EFECA 42 IRQ2E ROR AUX 
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C41D 
CA1E 
C420 
C423 
Ca25 
C428 
CA2A 
caac 
CA2E 
C430 
C433 
C436 
0437 
C438 
C439 
CA3A 
CA3B 
CA3D 
C43E 
CA3E 
CASE 
C441 
C444 
C447 
CA4A 
C44D 
CA4F 
C451 
C452 
C452 
C455 
C458 
C45B 
CASE 
C461 
C464 
C467 
CASA 
C46D 
C470 
C473 


CA 
DOEE . 
4EFECA 
297F 
ADFEC4 
BIFD 
E6FD 
DO0O2 
E6FE 
203EC4 
ADCOCO 
58 

68 

AB 

68 

AA 
A545 
40 


ADBBC4 
8DCACD 
ADBCCA 
8DC5CO 
ADCDCO 
2940 
FOF9 
60 


ADBBC4 
BDFECA 
ADBCCA 
BDFFC4 
AEFFCA 
GEFEC4A 
ADFEC4 
EDCACO 
ADFFC4 
BDCSCO 
ACAACA 


IRQ3 


LT 


’ 
HTIME 


. 
’ 


DEX 
BNE 
LSR 
AND 
LDA 
STA 
INC 
BNE 
INC 
JSR 
LDA 
CLI 
PLA 
TAY 
PLA 
TAX 
LDA 
ATI 


LDA 
STA 
LDA 
STA 
LDA 
AND 
BEQ 
ARTS 


LDA 
STA 
LDA 
STA 
LSR 
ROR 
LDA 
STA 
LDA 
STA 
JMP 


IRQO 
AUX 
#$7F 
AUX 
[BUF,X) 
BUF 
IRQ3 
BUF+1 
TIME 
PORTB 


ACC 


TAB 
TICL 
TAB+1 
TICH 
IFR 
#540 
LT 


TAB 
AUX 
TAB+1 
AUX+1 
AUX+1 
AUX 
AUX 
TICL 
AUX+ 
TICH 
LT 


13.2 Interrupt-Request Routine 
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Die Abbildung 13.2 zeigt die Interrupt-Service Routine. Diese wird ın 
IROON über den IRQ-Vektor in die Interrupt-Benandlung des Rechnen 
eingebunden. 


Das Wort INIT setzt das Datenrichtungsregister und liest die Maschinen 
programme aus Block 299 nach 8C400. 


Das Tor A wird als Ausgang programmiert. Die Zelle STATUS enthälı 
den augenblicklichen Zustand des Tores A. In dieser Zelle wird bei einaı 
Ausgabe über das Tor nur das Bit geändert, das ausgegeben wird. Damit 
ist sichergestellt, daß, wenn mehrere Geräte angeschlossen sind, nur an 
diese Daten ausgegeben wird. Als Ein- und Ausgabepuffer wird deı 
Speicherbereich ab $4000 (Inhalt der Zelle BUF) verwendet. Das Hilfs 
register ACR wird für die Betriebsart, Interrupt von Timer 1’ und dan 
Register PCR wird für CB1, Interrupt bei negativer Flanke an CB1' 
programmiert. Die Anfangsadresse der Interrupt-Service-Routine wird 
in den IRO Vector $3FE (APPLE II) geschrieben. 


Das Unterprogramm TIME holt die Verzögerungszeit für die gegebene 
Baudrate aus der Tabelle TAB, speichert sie in dem Zähler von Timer 1 
und startet diesen. Dann wartet es in einer Schleife auf den Nulldurch: 
gang des Timers. Dieser wird in Bit 6 des Registers IFR angezeigt. 

Die programmierte Baudrate entspricht 300 Baud. 

Das Unterprogramm HTIME verzögert nur die Hälfte der in der Tabelle 
programmierten Zeit. Die Division durch Zwei wird durch Links- 
schieben um eine Stelle durchgeführt. 


Nacn dem Aufruf der Worte INIT und IRO ist der Rechner für die Auf: 
nahme von Daten bereit. 


Bei der Übertragung von Programmen wurden immer 2 Textfelder 
gleichzeitig übertragen. Hatte der sendende Rechner die Übertragung 
beendet, so wurde das im Speicher abgelegte Programm mit GET auf 
die Diskette übertragen. An GET wird die Nummer des Textfeldes über- 
geben, in welchen das Programm gespeichert wird. 
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13.2 Senden von Daten 


Iur die Ausgabe von Daten wird das Unterprogramm OUTCH in die 
Ausgaberoutine des APPLE Il über den Vektor CSWL eingebunden. 


Das Unterprogramm OUTCHI sendet ein Zeichen mit Startbit, 7 
!utenbit und zwei Stopbits. Für die Ausgabe einer Eins an PAO wird die 
/ulle STATUS geholt und mit AND #8FE der augenblickliche Zustand 
ılır anderen Leitungen übernommen. Dann wird Bit O durch EOR #01 
auf Eins gesetzt. Auf die gleiche Weise werden die Datenbits erzeugt. 
Die Zelle AUX wird eine Stelle nach links geschoben. Damit gelangt 
hit Null in das CARRY Bit. Ist das CARRY -Bit Eins, so wird eine Eins, 
sonst eine Null ausgegeben. Nach dem Datenbit folgen zwei Stopbits. 


C473 BDFFCA 84 OUTCH1 STA AuX+1 


C476 297F 85 AND #$7F 

0476 49FF 86 EOR #$FF 

CA7A BDFECA 87 STA AUX 

C47D ADFDC4 BB LDA STATUS 

C480 29FE 89 AND #$FE 

C482 4901 90 EOR #01 

C484 BDCICO 91 STA PORTA ;STARTBIT 
C487 2PO3EC4A 92 JSR TIME 

CABA A207 93 LDX #07 

C48C 4EFECA 94 DUTD LSR AUX 

CA8F ADFDCA 95 LDA STATUS 

C492 29FE 96 AND #$FE 

0494 9002 97 BCC 01 

C496 4901 98 EOR #01 

c498 8DCICO 99 09 STA PORTA ;‚DATENBIT 
C49B 203EC4 100 JSR TIME 

CA49E CA 109 DEX 

CA49F DOEB 102 - BNE OUTO 

C4A1 ADFDCA 103 LDA STATUS 

C4A4 29FE 104 AND #$FE 

CAA& BDCICO 105 STA PORTA ‚STOPBIT 
C4A9 203EC4 106 JSR TIME 

CAAC ADFDCA 107 LDA STATUS ;STOPBIT 
C4AF 8DC1ICO 108 STA PORTA 

C4B2 203EC4 109 JSR TIME 

CABS ADFFC4 110 LDA AUX+1 


CABB ACFOFD 111 JMP $FDFO 
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C4BB 
C4BB 
C4BC 
CACO 
CACO 
6401 
C4C2 
CAC2 


51 
OD 


58 
60 


112 
113 
114 
115 
116 
117 
118 
119 


120 


’ 
TAB 


BYT 351 
BYT $0D 
ORG $C4C0 
CLI 

RTS 


END 


13.3 Unterprogramm OUTCH 


Das Wort DLOAD holt den Inhalt von zwei Textfeldern und speichert 
diesen ab PAD. Das Wort SEND sendet diese Daten an das empfangendu 


Gerät. 


Als letztes Zeichen wird 01 gesendet. Dieses Zeichen kann beim 
empfangenden Rechner als Schlußzeichen ausgewertet werden. 
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SCR 


oo Pprwm-0o 


# 150 
( RS232 
CO CONSTANT SLOT 


HEX 

C000 
C0019 
C002 
C003 
C004 
C005 
COOB 


SLOT 
SLOT 
SLOT 
SLOT 
SLOT 
SLOT 
SLOT 
SLOT 
SLOT 
SLOT 


+ 
+ 
+ 
+ 
+ 
+ 
+ 
+ 


+ 
+ 


190983 EF) 


CONSTANT PORTB 
CONSTANT PORTA 
CONSTANT DDRB 
CONSTANT DDRA 
CONSTANT TICL 
CONSTANT T1ICH 
CONSTANT ACR 
CONSTANT PCR 
CONSTANT IFR 
CONSTANT IER 


CONSTANT STATUS 
CONSTANT BUF 
CONSTANT CSWL 
CONSTANT IRGVEC —> 


SCR # 151 


0 ( RS232 CNTD EF) 
1:SLU-NA; 
2 : INIT FF DDRA C! 02 PORTA CI 
3 2 STATUS C! O0 ACR CI O PCR CI 
4 CA00 12B 1 R/U ; 
5 : CSWLON 73 CSWL C! CO SL + 
6 CSWL I+ CI; 
7 : CSWLOFF FO CSWL C! FD 
B CSWL 1+C!; 
9 
10 : IRGON 00 IRQVEC CI CO SL + 
11 IRQVEC 1+C1 ; 
12 : IRGOFF 65 IRQVEC C! FF IRQVEC 
13 +01; 
14 DECIML —> 
15 
SCR # 152 
D ( RS232 EMPFANGEN 190983 EF) 
1 HEX 
2 : IRQ 00 BUF C! 40 BUF 1+ C! 
3  _PORTB C@ 90 IER cC! 
4 IRODN CACO CALL ; 
5 
6 
7 
8 DECIMAL. 
e) 
10 — 
11 
12 
13 
14 
15 
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SCR # 153 
0 ( RS232 EMPFANG EF) 
1 16384 CONSTANT C 
D VARIABLE CC 


2 
3 
4 :GETIN)2*Ccc !4O0D0O 

5 CC @ OVER I + DO R/W 256 CC +! 
6 LOOP DROP ; 

7 

8 


=2 


SCR # 154 
RS232 SENDEN EF) 


_ 


: DLOAD ( N) 2 * DUP 5 + SWAP 
PAD CC ! DO 
CC @ I 1 R/W 256 CC +! LOOP ; 


(SEND) { NN!) CSWLON DO I C@ 
EMIT LOOP 01 EMIT CSWLOFF ; 

: SEND [ N) DLOAD PAD DUP 1024 
+ SWAP [SEND) ; 


ao.ao.0.060 
VPWDP-OOD0O NND IT POMm-—O 


13.4 RS232-Übertragung 
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BUSIPACK 


Das BUSIPACK enthält eine Lagerverwaltung, eine Adressverwaltung 
und ein Rechnungsschreibprogramm. 


Nie Adressverwaltung entspricht im wesentlichen der Adressverwaltung 
in Kapitel 9. Die Lagerverwaltung ist ähnlich aufgebaut. Beide benutzen 
lie gleichen Worte zum Speichern der Daten auf Diskette. Durch das 
Wort Ct )C werden die Konstanten START und RECLEN ausgetauscht. 
ie Lagerdatei beginnt bei Block 320 und hat eine Datensatzlänge von 
04 Bytes. Die Adressverwaltung beginnt bei Block 80 und ein Datensatz 
Int 128 Bytes lang. 


Die Blöcke 80, 318 und 319 enthalten die folgenden Eingaben: 
iu nr % RABATT - 
1 I > 13 Leerzeichen 
SCR # 159 
TELEFON TELEX 


D- 7 Leerzeichen 


ZUR ZEIT VERGRIFFEN 
WIRD VORGEMERKT 
KEINE GUELTIGE BESTELLNUMMER 
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Es würde zu umfangreich werden, hier alle Worte zu erklären. Bei (lu: 
Implementierung dieses Programms sollte nach folgenden Schunm 
vorgegangen werden. 


Zuerst wird die Adressliste programmiert. Die hier angegebene Linn 
ist mit der in Kapitel 9 beschriebenen austauschbar. Danach sollte «iv 
Lagerverwaltung programmiert werden. Diese ist nach ähnlichen 
Gesichtspunkten aufgebaut. Wenn diese beiden Teile fertig sind, dan 
kann das Programm zum schreiben einer Rechnung programmin 
werden. 


BUSI-PACK 


Das Programm BUSI-PACK vereinigt die beiden Programme SUPEH 
MAIL und SUPERINVENTORY zu einem Programm, mit welchen 
Rechnungen geschrieben werden können. Gleichzeitig wird das Lagen 
verwaltet. Die in den Rechnungen aufgeführten Artikel werden auto 
matisch aus dem Lagerbestand ausgetragen. 


Die Bestellungen werden in einen Bestell-File eingetragen. Im An 
schluß an die Eingabe werden die Rechnungen geschrieben. Auf eineı 
Diskette können die folgenden Daten aufgezeichnet werden: 


— Ein Bestell-File kann bis zu 40 Bestellungen aufnehmen. 
— Im Lagerprogramm können 900 Artikel gespeichert werden. 
— Die Adressverwaltung kann 700 Adressen aufnehmen. 


Die Bedienung der Programmteile ADRESSEN und LAGER ent: 
spricht den Programmen SUPERMAIL und SUPERINVENTORY. 
Datendisketten, die mit diesen Programmen beschrieben worden sind, 
können jedoch nicht mit dem BUSI-PACK verwendet werden, da die 
Datenverteilung auf der Diskette unterschiedlich ist. 


Erste Inbetriebnahme des BUSI-PACKS 


Zuerst werden nach dem üblichen Verfahren, ein oder zwei Disketten 
formatiert. Dies sind die späteren Datendisketten. Dann wird die Pro- 
gramm-Diskette in das Laufwerk eingelegt und der Rechner einge- 
schaltet. Mit LOAD ’'*",8 wird das Programm geladen und mit RUN 
gestartet. 
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(lie formatierten Disketten müssen noch initialisiert werden. Dies 
wıchieht durch das Wort ALLNEW. Nach der Eingabe des Wortes 
wird die Programmdiskette aus dem Laufwerk genommen und die 
HATA INIT Diskette in das Laufwerk eingelegt. Diese Diskette ist die 
Huckseite der Programmdiskette. Nach Betätigen der RETURN-Taste 
wird auf Anforderung die formatierte Diskette eingelegt und durch ein 
wnlteres RETURN initialisiert. Danach erscheint das Menue des 
Auressenprogramms. Soll eine zweite Diskette initialisiert werden, so 
wird auf die Anfrage WAS wiederum ALLNEW eingegeben. 


/wischen den einzelnen Programmteilen wird jeweils mit LAGER RUN 
vw. ADRESSEN RUN umgeschaltet. Wird also im Menue des 
Atlressenprogramms LAGER RUN eingegeben so wird das Lagerpro- 
uinmm aktiv. Umgekehrt wird mit der Eingabe von ADRESSEN RUN 
im Lagerprogramm das Adressenprogramm aktiviert. 


Auf eine neue Diskette müssen die Firmenanschrift und die Bankver- 
Iindungen eingegeben werden. Die Firmenanschrift ist jeweils die erste 
Adresse in der Adressverwaltung. Die Bankverbindungen sind in den 


luldern VN und CO der beiden nächsten Adresseintragungen ange- 
wmben. Für die Eingabe wird mit 


ADRESSEN RUN 
in das Adressprogramm gesprungen und dort mit 
TERMINAL EINGABE 
ılie Eingabe der Adresse begonnen. Die Adressmaske erscheint auf dem 


Bildschirm, mit einer Eins links oberhalb der Maske. Ein Beispiel zeigt 
(lie Abbildung (Eingabe einer Firmenanschrift) auf der nächsten Seite. 
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-GRUENE BAUMSTR. 32° 


-D-8000 -MUENCHEN m 


= -1234567-089/1234567—---—- - 


Eingabe einer Firmenanschrift 


In das Codefeld C2 wird die TELEX Nummer, in das Feld TEL dir 
Telefonnummer eingetragen. 


In die nächsten beiden Adressen werden die Bankverbindungen oder ein 
anderer Text in die Felder VN und CO eingetragen. Von 46 möglichen 
Zeichen werden 45 als laufender Text ausgegeben. Ein Beispiel für die 
Eingabe zeigt die nächste Abbildung. Sollen keine Bankverbindungen 
gedruckt werden, so müssen in die Adresseinträge 2 und 3 Leereingaben 
gemacht werden. 


-DRESDNER BANK MUENCHEN 5 390———-— 


- 370 BLZ 700 800 00 — 


Eingabe der Bankverbindungen 
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"ind diese Eingaben gemacht worden, so ist die Adresskartei zur Auf- 
nıhme von Adressen bereit. Diese können direkt oder über das 
Huchnungsschreibprogramm eingegeben werden. 


Als nächstes werden die Artikel in das Lagerverzeichnis eingegeben. 


ADRESSVERWALTUNG 


le Adressverwaltung wird im BUSI-PACK mit ADRESSEN RUN ge- 
sturtet. Danach erscheint das Hauptmenue: 


ADRESS-VERWALTUNG 


TERMINAL EINGABE 
SUCHE <BZ> <NAME> 
<NR> FINDE 
INHALT 


DRUCKER LABEL 
SUCHE <BZ> <NAME> 

INHALT 

<NR> DRUCKE 


RUN 
NEU 
RECHNUNG 
WAS 


Menue Adressverwaltung 


Eingabe von Adressen: 


Das Wort TERMINAL braucht nur zu Anfang oder nach dem Aus- 
drucken von Adressen eingegeben zu werden. Nach dem Wort EIN- 
GABE erscheint die Eingabemaske: 
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Eingabemaske 


Über der Maske wird die laufende Nummer des Eintrags angezeigt. 
Diese Nummer wird auch in der Liste aund auf den Etiketten ausge- 
druckt. Die Bezeichnungen der einzelnen Felder sind in der Abbildung 
angegeben. Sie erscheinen nicht in der Maske. In das Feld VN wird der 
Name eingetragen. Eine Zusatzangabe kann in dem Feld CO gemacht 
werden. Der Übergang von einem Feld in das andere erfolgt durch die 
RETURN-Taste oder automatisch, wenn das Feld voll beschrieben ist. 
In die Felder ST, PLZ und ORT werden die Straße, die Postleitzahl 
und der Ort eingetragen. 


Als Korrekturtaste kann nur die INST/DEL-Taste verwendet werden. 
Alle anderen Cursortasten sind wirkungslos. 


Die Felder C1 und C2 sind Codefelder. Hier können Bezeichnungen 
eingetragen werden, mit denen später Adressen selektiert werden 
körınen. 

Beispiel: 

Alle ATARI-Besitzer haben in der ersten Stelle des Codefeldes ein A, 
alle APPLE-Besitzer ein B und alle ZX81-Besitzer ein Z. Mit 


DRUCKER SUCHE C1 A 
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werden Adressaufkleber nur für ATARI-Besitzer und mit 
DRUCKER SUCHE C1B 


nur für APPLE-Besitzer ausgedruckt. Es empfiehlt sich, diese Code- 
bezeichnungen vor dem Anlegen einer Adressdatei sich genau zu über- 
legen. 


In das letzte Feld wird die Telefonnummer eingetragen. Diese letzte 
Zeile wird bei den Aufklebern nicht ausgedruckt. Sind alle Eingaben 
nemacht worden, so wird durch OK (J/N) angefragt, ob die Eingabe 
richtig ist. Zur Bestätigung kann die J oder die RETURN-Taste gedrückt 
werden. Bei einer Verneinung mit N wird der Eintrag nicht gespeichert. 
Wird die Anfrage MEHR (J/N) mit J oder RETURN beantwortet, so 
können weitere Einträge gemacht werden. Mit N wird in das Haupt- 
menue zurückgesprungen. 


Suchen von Adressen 
Mit der Eingabe 


SUCHE (BZ) (NAME) 


kann nach einer Adresse gescuht werden. (BZ) ist die Bezeichnung des 
Feldes, (NAME) der Eintrag, nach welchem gesucht wird. Die Eingabe 
von: 


SUCHE PLZ D-8 


sucht alle Adressen aus,.deren Postleitzahl mit D--8 beginnt. 


Die Eingabe von 


SUCHE VN FRANK MUELLER 


sucht alle Adressen aus, die den Vornamen FRANK haben. Der Ver- 
gleich der Zeichenketten wird nur bis zu einem Leerzeichen durch- 
geführt. Ist vor SUCHE das Wort TERMINAL eingegeben worden, so 
werden immer drei gefundene Adressen auf dem Bildschirm angezeigt. 
Wird die Leertaste gedrückt, so wird die Suche fortgesetzt. Mit der 
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Taste X wird die Suche abgebrochen. Ist vor dem Wort SUCHE dan 
Wort DRUCKER eingegeben worden, so werden Adressenaufkleber aus 
gedruckt. 


Auffinden von Adressen 


Jede Adresse erhält eine fortlaufende Nummer, die immer auf dem 
Bildschirm angezeigt und ausgedruckt wird. Mit 


5 FINDE 


wird der fünfte Eintrag auf den Bildschirm angezeigt. Nun erscheint am 
oberen Bildrand eine neue Menue-Zeile. 


AENDERE (BZ) LOESCHEN EINTRAG RUN 


Mit dem Wort AENDERE können die Einträge in den einzelnen Feldern 
geändert werden. Die Eingabe 


AENDERE CO 


ändert die Eintragung in das Feld CO. Der Cursor sitzt unter dem Wort 
WAS und ein ( zeigt die Länge der möglichen Eingabe an. Gibt man auf 
die Anfrage OK (J/N) J oder RETURN ein, so wird der geänderte Ein- 
trag auf die Diskette zurückgeschrieben. Wird mit N geantwortet, so 
können weitere Änderungen gemacht werden. 


Das Wort LOESCHEN löscht diese Adresse. An diese Stelle kann mit 
EINTRAG eine neue Adresse eingegeben werden. Das Wort RUN 
bringt das Menue wieder auf den Bildschirm. 


Das Wort INHALT gibt alle Adressen entweder auf den Bildschirm oder 
auf den Drucker aus, je nachdem TERMINAL oder DRUCKER ein- 
gegeben worden ist. 


Adressaufkleber von der gesamten Adressdatei werden durch 
DRUCKER LABEL zweispaltig ausgedruckt. Sind an eine Adress- 
datei neue Adressen angehängt worden, so können Adressaufkleber 
von diesen Adressen durch das Wort DRUCKE ausgedruckt werden. 
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Die Eingabe 
135 DRUCKE 
druckt ab Adresse 135 bis zum Ende der Liste aus. 


Man beachte, vor FINDE und DRUCKE muß immer eine Zahlenangabe 
wein. 


Sollen auf einer Datendiskette die Adressen gelöscht werden, so wird 
ADRESSEN NEU 


vingegeben. Damit sind alle Adressen gelöscht und in die Adresskartei 
können neue Eingaben gemacht werden. 


LAGERVERWALTUNG 


Das Programm Lagerverwaltung dient zur Erfassung und Verwaltung 
eines Lagerbestandes. Auf einer Diskette können bis zu 900 Artikel 
orfasst werden. Die Länge eines Datensatzes beträgt 64 Byte. 


Für einen Artikel wird eine lagernummer (4-stellig), eine Bezeichnung 
(20 Stellen), ein Codefeld für die Mehrwertsteuer und ein Hersteller- 
schlüssel (2 Stellen) eirigegeben. Weitere Einträge sind die Mindest- 
menge, die im Lager vorhanden sein muß und der Verkaufspreis. 


Danach folgen die Lagermenge, die verkaufte Menge und das Datum des 
letzten Zugriffs auf den Artikel. Die beiden letztgenannten Einträge 
werden vom Programm aus vorgenommen. Sie werden bei der Eingabe 
übersprungen. Die letzte Eintragung ist der Einkaufspreis. 


Im BUSI-PACK wird das Programm mit LAGER RUN gestartet. Es 
erscheint das Hauptmenue des Programms: 
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LAGERVERWALTUNG 


RUN 

DATUM TTMMYY 
EINGABE 
ABGANG 
ZUGANG 
DRUCKER 

<#> AUSGABE 
NEU 

FIN 

INHALT 
BACKUP 

WAS 


Menue Lagerprogramm 


“Der Befehl NEU löscht eine vorhandene Lagerdatei. Deshalb erscheint 
nach NEU die Frage 


WIRKLICH? (J/N) 


Wird diese Frage mit J beantwortet, so ist die Lagerdatei auf der 
Diskette gelöscht. Mit N wird der Befehl NEU aufgehoben. Der Befehl 
DATUM wird zur Eingabe des gültigen Datums verwendet. Die Eingabe 
erfolgt in der Form 


DATUM 020983 


für den 2.9.1983. Zwischen dem Wort DATUM und der Zahlenreihe ist 
nur ein Leerzeichen. Diese Eingabe kann mehrmals hintereinander er- 
folgen. 


Der Befehl RUN initialisiert nur die Maske. Er hat keine Auswirkungen 
auf den Programmablauf. Bei Fehleingaben erscheint ein ?. Danach 
kann der Befehl neu eingegeben oder die Maske mit RUN gelöscht 
und danach neu eingegeben werden. Bei Tippfehlern kann mit der 
INST DEL Taste ein oder mehrere Buchstaben gelöscht werden. Nur 
diese Taste kann zur Korrektur verwendet werden. Alle anderen Tasten 
sind dafür nicht verwendbar. 
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Die Eingabe von Lagerbeständen wird durch den Befehl EINGABE ein- 
geleitet. Es erscheint die Eingabemaske. 


Unter der Eingabemaske ist eine neue Befehlsmaske mit abgekürzten 
Befehlen zu sehen. Wird auf die Frage WAS der Buchstabe E für 
E}INGABE eingegeben, so wird der Cursor des Bildschirms auf die 
erste Stelle der Lagernummer gesetzt. Die Punkte hinter den Be- 
zeichnungen geben die Zahl der Stellen an, die eingegeben werden 
können. In das nächste Eingabefeld wird nach der Eingabe aller Stellen 
oder nach RETURN übergegangen. 


DATUM: 4.04.84 


LAGER # 2 ooosa 

BEZEICHNUNG Soon uenenennueen |... 
MWST CODE 8 

HERSTELLER Sees 


MINDEST MENGE : ... 
VERKAUFSPREIS : aunuseon 
LAGERMENGE Eoonuse 
VERK. MENGE © nenne 
LETZTER ZUGRIFF: .... 
EINKAUFSPREIS : zeueaner 


WAS 


EJINGABE EN)DE ME)JHR EX)IT SPJEICHERN 
LA BE MW HE MM VKP LAM VKM LD EKP 


Eingabemaske Lager 


Die Lagernummer muß eine Zahl mit maximal 4 Stellen sein. Eingaben 
wie 010, 4135 oder 12 sind erlaubt, nicht dagegen 1C5 oder A123. Das 
nächste Feld enthält die Bezeichnung mit maximal 20 Stellen. 


Für das Schreiben einer Rechnung wird ein Codeschlüssel für die Mehr- 
wertsteuer benötigt. Dieser kann in das nächste Feld eingegeben 
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werden. Eine 1 bezeichnet die ermäßigte, eine 2 die volle Mehrwert- 
steuer. Es folgt eine zweistellige Angabe für den Hersteller, die Mindest- 
menge und der Verkaufspreis. Dieser muß mit Dezimalpunkt einge- 
geben werden (z.B. 19.50). 


Nach der Eingabe der Lagermenge überspringt der Cursor die beiden 
nächsten Felder und verlangt nach der Eingabe des Einkaufspreises. Soll 
in ein Feld keine Eintragung gemacht werden, so kann ein Leerzeichen 
eingegeben oder mit der RETURN Taste in das nächste Feld über- 
garıgen werden. 


Sind alle Eingaben gemacht worden, so wartet das Programm auf 
einen neuen Befehl durch die Frage WAS. 


Sind bei der Eingabe Fehler gemacht worden, so können die Worte in 
der zweiten Reihe verwendet werden, um Einträge in den einzelnen 
Feldern zu korrigieren. Das Wort LA zum Beispiel ändert die Lager- 
nummer. Die Eingabe von 


LA (RETURN) 


setzt den Cursor auf die erste Stelle der Lagernummer. Nun kann diese 
neu eingegeben werden. Nach der Eingabe erfolgt wieder die Frage 
WAS. Die Reihenfolge der Befehle in der zweiten Zeile entspricht der 
Reihenfolge der Felder. Diese können in beliebiger Reihenfolge und 
auch mehrfach hintereinander eingegeben werden. 


Wenn weitere Einträge gemacht werden sollen, so wird durch ME für 
ME)HR der eben gemachte Eintrag gespeichert und eine neue Lager- 
maske auf den Bildschirm ausgegeben. Zur Beendigung der Eingabe 
wird EN für EN)DE eingegeben. Der letzte Eintrag wird gespeichert 
und das Programm springt in das Lagermenue zurück. Mit den Buch- 
staben EX für EX)IT wird ebenfalls in das Lagermenue zurückge- 
sprungen. Dabei wird aber der letzte Eintrag nicht gespeichert. 


Die Ausgabe eines Eintrags auf den Bildschirm erfolgt durch # 
AUSGABE. Durch 


170 AUSGABE 
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wird der Inhalt des Datensatzes mit der Lagernummer 170 auf den Bild- 
schirm ausgegeben. Zwischen der Zahl und dem Wort AUSGABE ist 
nur ein Leerzeichen. 


Nun können Änderungen wie bei der Eingabe vorgenommen werden. 
Dieser Eintrag darf nun nicht mit EN oder ME in die Datei zurück- 
geschrieben werden. Damit würde er ans Ende der Datei und nicht an 
seinen richtigen Platz in der Datei zurückgeschrieben. Zur Speicherung 
wird der Befehl SP für SPJEICHERN verwendet. Dieses Wort speichert 
einen geänderten Eintrag in die Datei zurück. Ein Eintrag-in die Datei 
kann nicht gelöscht, aber auf diese Weise überschrieben werden. 


Für die Veränderung des Laäagerbestandes werden zwei Befehle, 
ZUGANG und ABGANG verwendet. Nach 


ABGANG (RETURN) 


wird nach der Lagernummer gefragt und der Eintrag angezeigt. Nach 
Eingabe der Menge wird diese in dem Datensatz geändert und das 
Datum eingetragen. Durch ZUGANG wird auf die gleiche Weise der 
Lagerbestand geändert. 


Durch das Wort DRUCKER wird eine Lagerliste ausgedruckt. Die 
Ausgabe erfolgt in der Reihenfolge der Eingabe. 


Zusatz für C-64: 
Drucker an IEEE Bus angeschlossen. 


Zusatz für ATAR|: 
850-Interface oder ELCOMP RS232 verwenden. 


Zusatz für APPLE: 
Printer Interface in Slot 1. 


Das Wort INHALT gibt den Artikelbestand mit Lagernummer, Be- 
zeichnung, Lagermenge und Verkaufspreis auf den Bildschirm aus. 


Vor dem Ausschalten des Computers muß das Wort FIN eingegeben 


werden. Dadurch werden alle noch nicht auf der Diskette gespeicherten 
Einträge zurückgeschrieben. 
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Von dem Lagerbestand kann ein BACKUP gemacht werden. Dazu wird 
eine formatierte Diskette mit ALLNEW initialisiert. Dann wird die 
Originaldiskette in das Laufwerk eingelegt und 


LAGER BACKUP 
eingegeben. Nach der Aufforderung 


NEUE DISKETTE EINLEGEN 
RETURN DRUECKEN 


wird die Originaldiskette aus dem Laufwerk genommen und die neue 
Diskette eingelegt. Nach einiger Zeit erscheint die Aufforderung 


ORIGINAL DISKETTE EINLEGEN 
RETURN DRUECKEN 


Nun wird wieder die Originaldiskette eingelegt. Dieser Zyklus wieder- 
holt sich noch vier Mal. 


Achtung! 
Beim Lesen der Diskette blinkt die Leuchtdiode so, als ob ein Disketten- 
fehler vorliegt. Die Datenblöcke werden in diesem Rhytmus eingelesen. 


BUSI-PACK (Übersicht) 


Das Programm BUSI-PACK besteht aus zwei Disketten, der Programm- 
Diskette und (auf der Rückseite) der DATA-INIT Diskette. Auf beiden 
Disketten darf auf keinen Fall der Schreibschutz entfernt werden. Sie 
dürfen auch nicht als Datendisketten verwendet werden, da sonst das 
Programm zerstört wird. Als Datendisketten werden formatierte 
Disketten verwendet. 


Das Programm wird mit LOAD ‘’*,8 aus BASIC geladen. Nach RUN 
erscheint das Startmenue. 
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BUSI-PACK 
{C) 1984 BY ING W. HOFACKER GMBH 


ALLNEW 
ADRESSEN RUN 
LAGER RUN 
DATEN DISKETTE EINLEGEN 


WAS 


Startmenue BUSI-PACK 


Mit LAGER RUN wird das Lagerverwaltungs-Programm, mit 
ADRESSEN RUN das Adressenverwaltungsprogramm gestartet. Mit 
ALLNEW wird eine neue Datendiskette für das BUSI-PACK erstellt. 


In das Rechnungsschreibprogramm gelangt man aus dem Menue des 
Adressenprogramms mit dem Wort RECHNUNG. Dann erscheint das 
Menue dieses Programmteils. 


RECHNUNGEN SCHREIBEN 


DATUM :4.04.84 
MWST :14.0% 
RECHN #:1000 


BSTF NEUER BESTELL-FILE 


CONT BESTELL-FILE ERGAENZEN 
RESS RECHNUNGEN SCHREIBEN 


WAS 


Menue Rechnungsschreiben 


Mit BSTF wird ein neuer Bestell-File eröffnet. Dessen Menue hat 
folgendes Aussehen: 


169 


ANSCHRIFT BES)TELLUNG 
SON)DERARTIKEL WEITER 


ENDE 


Menue Bestell-File 


Die Eingabe einer Bestellung beginnt mit dem Wort ANSCHRIFT. 
Zuerst wird nach der Kundennummer gefragt. Dies ist die Nummer, 
unter welcher die Adresse des Kunden in der Adressverwaltung einge- 
tragen ist. Ist diese bekannt, so wird nach der Eingabe der Nummer die 
Adresse auf dem Bildschirm angezeigt. 


Mit J oder der RETURN-Taste wird in der Eingabe fortgefahren, mit 
N kann eine neue Nummer eingegeben werden. 


Ist die Kundennummer nicht bekannt, so wird nur die RETURN- 
Taste gedrückt. Das Programm schaltet dann in das Adressenprogramm 
um und gibt die Adressmaske zur Eingabe der Adresse auf den Bild- 
schirm aus. Ist die Adresse eingegeben worden, so wird in der Auf- 
stellung der Anschrift fortgefahren. Die nächste Eingabe ist die Bestell- 
nummer des Kunden. Diese kann 10 Stellen lang sein. Es folgen die 
Eingabe des Bestell-Datums und die Angabe, ob der Kunde Mehrwert- 
steuer bezahlt. Bei Bejahungen kann entweder die Taste J oder 
RETURN, bei Verneinungen muß die Taste N gedrückt werden. 


Mit der nächsten Eingabe wird der Rabatt festgelegt. Hier gibt es drei 
Möglichkeiten. Wird mit N verneint, so wird zur nächsten Eingabe 
weitergegangen. Wird mit J geantwortet, so erscheint die Frage 
SONDERRABATT. Wird nun mit N geantwortet, so wird der Rabatt 
nach folgender Staffel berechnet. 


Stückzahl ) 10 40% 


Stückzahl) 5 33% 
Stückzahl )= 1 25% 
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Bei der Berechnung des Rabatts wird jeweils die Gesamtstückzahl 
berücksichtigt. Wird die Frage nach dem Sonderrabatt mit J be- 
antwortet, so wird dieser danach als zweistellige Zahl eingegeben. 
Beispiel: 35 für 35%. Als letzte Eingabe erfolgt die Eingabe der Ver- 
sandkosten. Werden keine Versandkosten berechnet, so wird die 
RETURN-Taste gedrückt. Andernfalls wird ein Betrag mit Dezimal- 
punkt eingegeben (6.00 für DM 6.00 Versandkosten). 


BESTELL-NR :1234567B90 
BESTELL DATUM: 030484 
STEUER { /N) :J 

RABATT U /N) :J 
SONDER-RABATT:A 


VERSANDKOSTEN :5.00 
Eingabe Anschrift 


Nun ist die Eingabe der Anschrift beendet. Das Programm verlangt mit 
OK (J/N) eine Bestätigung. Mit J ist die Eingabe beendet, mit N beginnt 
sie aufs Neue. 


Als nächstes erfolgt die Eingabe der Bestellungen. Hier gibt es zwei 
Möglichkeiten. Sind die Artikel im Lager eingetragen, so wird mit 
BEStellung weitergemacht. Es dürfen nur die Buchstaben BES ein- 
gegeben werden. Die einzelnen Bestellungen werden in folgendes 
Schema eingetragen: 


BEST. MENGE :10 
GEL. MENGE :10 
BESTELL NR :1000 


Eingabe Bestellung 


Nach der Eingabe der Lager- oder Bestellnummer wird mit OK (J/N) 
und mit MEHR (J/N) abgefragt, ob die Eingaben richtig sind und ob 
weitere Eingaben gemacht werden sollen. Mit N wird die Eingabe ab- 
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geschlossen. 


Die zweite Möglichkeit ist die Eingabe eines SONderartikels. Dies sind 
Artikel, die nicht in das Lagerverzeichnis eingetragen sind. Nach der 
Eingabe von SON erscheint die Eingabemaske. 


10 ASCHENBECHER ....... e 3.755 .. 


Eingabe eines Sonderartikels 


Die Anzahl ist maximal zweistellig und muß mit RETURN abge- 
schlossen werden. Dann folgt die Bezeichnung, der Mehrwertsteuer- 
schlössel (1 = halbe MWST., 2 = volle MWST) und der Preis. Aus dem 
augenblicklichen Eingabefeld wird, wenn dieses nicht vollgeschrieben 
ist, in das nächste mit der RETURN-Taste gesprungen. Deshalb kein 
RETURN nach der Eingabe des MWST-Schlüssels. Mit OK (J/N) wird 
die Richtigkeit der Eingabe bestätigt. Wird die Frage MEHR (J/N) mit 
N beantwortet, so ist diese Eingabe abgeschlossen. 


Eine Bestellung kann aus 15 Einzelposten bestehen, wobei Lager- 
artikel und Sonderartikel gemischt eingegeben werden können. Aus 
Platzgründen können aber nur maximal 7 Sonderartikel eingegeben 
werden. 


Eine weitere Bestellung wird mit WEITER, gefolgt von ANSCHRIFT 
usw. in den Bestell-File aufgenommen. Mit ENDE wird der Bestell- 
File abgeschlossen. 


Ein bereits bestehender Bestell-File kann mit dem Wort CONT er- 
weitert werden. Dazuwischen können Änderungen im Lager oder bei 
den Adressen vorgenommen werden. CONT kann nicht mehr ver- 
wendet werden, wenn durch RESS Rechnungen geschrieben worden 
sind. 


Das Menue des Rechnungs-Schreib-Programms zeigt oben das 
Rechnungsdatum, die Mehrwertsteuer und die nächste Rechnungs- 
nummer. Diese Angaen können folgendermassen geändert werden: 


DATUM TTMMJJ setzt das Datum. 
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Beispiel: 
DATUM 101283 setzt das Datum auf den 10. Dezember 1983. 


MWST NNN setzt die Mehrwertsteuer. 


Beispiel: 
MWST 140 ergibt die Mehrwertsteuer 14.0%. 


RECHN# NNNN setzt die Rechnungsnummer. 


Beispiel: RECHN# 2145 setzt die Nummer für die nächste Rechnung 
auf 2145. 


Die Eingaben können in beliebiger Reihenfolge und mehrfach hinter- 
einander gemacht wwerden. 


In dem Wort RESS beginnt, nachdem das Papier eingelegt und dier 
Drucker eingeschaltet worden ist, der Ausdruck der Rechnung. 


Die Stellung des Druckkopfes für den Ausdruck auf das Formular- 
papier muß ausprobiert werden. Beim Abschalten des Druckers nach 
dem Ausdrucken der letzten Rechnung wird noch ein Zeilenvorschub 
zum Leeren des Druckpuffers ausgegeben. Werden Rechnungen einzeln 
mit BSTF und RESS ausgedruckt, so muß das Formularpapier um einen 
Zeilenvorschub zurückgesetzt werden. 


Einige allgemeine Bemerkungen zum Programm 


Das Programm BUSI-PACK wird durch Worte gesteuert. Werden bei der 
Eingabe Schreibfehler gemacht, so antwortet das Programm mit dem 
eingegebenen Wort und Fragezeichen. Danach kann dieses Wort neu 
eingegeben werden. Das Wort RUN gibt in beiden Programmteilen nur 
die Maske des Menues auf den Bildschirm aus. Es kann deshalb, ohne 
daß dadurch am Programm oder den Daten geändert wird, auch zum 
Löschen und Neuerstellen des Menues verwendet werden. Die 
RESTORE Taste führt einen Warmstart durch. Allerdings führt das 
Drücken der RESTORE Taste während des Druckens unter Umständen 
zum Systemabsturz. 
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SCA # 110 
DO [ COMMON SCREENS BEGIN EF) 
FORTH DEFINITIONS 
O VARIABLE H D VARIABLE V 
: HO { n) DO DO SPACE 1 H +1 
LOOP ; 
VECEn)DODDOCR AV+Il 
OH I! LOOP ; 


vowaunpo@n > 


12 


ATYPE -DUP IF OVER + SWAP 
DO I C@ 127 AND DUP 0= 
IF DROP ELSE EMIT 1 H +IJ 


THEN LOOP ELSE DROP ENDIF ; 


# 
( 


PRINT ( NA) PAD + SWAP 
-TRAILING ATYPE ; 


— 


111 

BUSI FORMAT ef) 
ADJ I n) H @ - -DUP IF HO 
THEN ; 


: PTEX> ( nen!) ADJ PRINT ; 


# 
{ 


TEX> I ann!) ADJ -TRAILING 
ATYPE ; 
(RADJ) { ann'n") SWAP ADJ 
SWAP DUP >R - HO R> ATYPE ; 
#N ( d) <# Hs Hr; 
#DM ( d) <# # # 46 HOLD #8 
#; 
#% ( d) <# 37 HOLD # 46 HOLD 
#5 #> ; 
#DA ( d) <# # # 46 HOLD # # 
46 HOLD #5 #> ; 

— 


112 
INPUT WORDS ef) 


: PADD PAD 128 + ; 


IP PAD + SWAP EXPECT ; 


: IPP PADD + SWAP EXPECT ; 


PADDC PADD 128 32 FILL ; 


: ?IP PADDC OVER PADD SWAP 
EXPECT PADD C@ IF PADD SWAP 


PAD + ROT CMOVE THEN ; —> 


sch # 113 
0 ( INPUT WORDS ef) 
1 0 VARIABLE CNT 
2 : PADC PAD 128 32 FILL ; 

3 : ?Z Ü N-NF) DUP 47 > OVER 58 < 

4 AND OVER 46 = OR ; 

5 : (S) 32 C, -1 ALLOT ; 

6 : (Z> ( -D) CNT @ HERE OVER - 

7 SWAP 0= NOT IF NUMBER ELSE 

B DROP THEN ; 

9 : {Z>) ( -D) 1 CNT ı {S) BEGIN 
10 KEY DUP 13 = NOT WHILE ?Z IF 
41. DUP EMITC, [S) 1 CNT +! ELSE 
12 20 = IF -1 ALLAT -1 CNT +1 (S) 
13 -1 241 +1 THEN THEN REPEAT DROP 
14 (Z> CNT @ 1 - MINUS DP +1 ; 

15 — 


SCR # 114 

0 ( INPUT WORDS EF) 
1 : Z>PP ( AN) (Z>) DROP SWAP 

2 PAD+1; 

3 : C> DUP EMIT ; 

4 : C>P ( A) KEY DUP 13 = IF DROP 
5 74 THEN C> SWAP PAD + CI ; 

6 : PCI ( CA) PAD + CI; 

7 “ 

B 

9 —y> 

10 

11 

12 

13 

14 
15 

SCR # 115 

0 ( BUSI COMPUTER SPECIFIC EF) 
1 HEX 

2 : Na ' SPACE CFA ' WITA+ 1; 
3 :AQ !'CACFA !' WITA+I; 
4: CUCHCV; 

5 : PRON 1 PR# ; 

6 : PROF 0 PR# ; 

7 : 3>CLA 3 22 CI HOME ; 

8 : CLAR 0 22 CI HOME ; 

9 DECIMAL 
10 : [L'] [COMPILE] ’ ; 


—_ 
pr N 


—> 

12 [ FUER APPLE II COMPUTER 

13 3>CLR LOESCHT BILDSCHIRM 

14 AB DER DRITTEN ZEILE NACH UNTEN) 
15 
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SCR # 116 


a0 


[ 


oe. 0 


BUSINESS ADDR INPUT cntd ef) 


VARIABLE #NR 

(CL) Un) O0 DO 32 EMIT LOOP ; 
MC 16 2 CU ; 
?KEY ( -f} KEY DUP 13 = IF 
DROP 1 ELSE 74 = THEN ; 
MORE? MC 19 {CL) MC 

." MEHR { /N)" ?KEY ; 
DK? MC 35 [CL) MC 
." OK [ /N) " PKEY ; 
15 SPACE ; : 35 3 SPACES ; 
55 5 SPACES ; 


==2 


# 
{ 


. 
“ 
. 
. 
. 
. 


. 
. 


# 
(0 


117 
VIRTUAL MEMORY ef) 
BO CONSTANT START 
128 CONSTANT RECLEN 
#INDEX ( n-a) RECLEN B/BUF 
*/MOD START + DUP 356 = OVER 
356 > OR IF2 + 
THEN BLOCK + ; { ONLY C64) 
FIRST# ( -a) DO #INDEX ; 
+NR 1 FIRST# +1 UPDATE ; 
IMEM PAD FIRST# @ #INDEX 
RECLEN CMOVE UPDATE +NR ; 


: @MEM ( n) #INDEX PAD RECLEN 


CMOVE ; 

IENTRY PAD #NR @ #INDEX RECLEN 
CMOVE UPDATE FLUSH ; 
— 

118 

BUSI DATUM INPUT ef) 


O0 VARIABLE DAT 6 ALLOT 


DIN 13 WORD HERE COUNT ' DAT 


SWAP CMOVE ; 


D>S FIRST# 2 + ! DAT SWAP 6 


CMOVE UPDATE ; 
D<S FIRST# 2 + !' DAT 6 


CMOVE ; 
: WAS 16 2 CU ." WAS " 30 (CL) 


1 


6 6 CU QUIT ; 


C<>C ' RECLEN | ' START I ; 
— 


SCR # 119 

Ü BUSI LAGER INPUT cntd ef) 
: ?N [ c-c/0) DUP 58 < IF DUP 
48 < IF DROP O0 THEN ELSE DROP 

0 THEN ; 

x +PAD ( n) HERE +1 +; 

: >N ( en) 0 DO +PAD CNT | 

DO DuP I + C@ ?N DuP IF CNT @ 
C! 1 CNT +! ELSE DROP THEN LDOP 
32 CNT @ CI DROP ; 

l VIRTUAL MEMORY ef) 
10 : (IM) [U n) #INDEX RECLEN 

11 CMOVE UPDATE ; 

12 : [INR) (Ü n) FIRST# @ 2 * B/BUF 
13 /MOD 1 + BLOCK + I UPDATE ; 
14: @NR ( a-n) 2 * B/BUF /MOD 1 + 
45 BUOCK+@; —>. 


oopuoupum-_-6öo0 


SCH # 120 

{ BUSI LAGER EINGABE of) 

: N>Z ( an-d) DUP -1 +PAD I 
>N -1 +PAD NUMBER ; 

s INR PAD 4 N>Z DROP (INR) ; 

: #SUCH ( n-af) 1 SWAP FIRST# 

@ 1 DO DUP I @NR = IF DROP DROP 
I #NR | I O LEAVE THEN LOOP ; 

ı .— 45 EMIT ; 

: PAC ( na) PAD + SWAP 32 FILL ; 

:.— {n)00D0 .- LOOP ; 

: „DATE ' DAT 6 N>Z #DA TYPE ; 

11 : (DATUM) DIN 1 9 CU 

12 8 SPACES 1 9 CU „DATE D>S ; 

13 : (?DATUM) D<S 1 9 CU .DATE ; 


pr \ 
oOoouaou pw@m-60o 


14 —> 
15 
sch # 121 
0 ( INVENTORY CNTD 0131EF) 
1 : #1 PAD 4 N>Z DROP #NR @ 2 * 
2  _B/BUF /MOD 1+ BLOCK + I 
3 UPDATE ; 
4 
scR # 122 
0 ( COMMON SCREENS END EF) 
4: NET Ü dn-d!) >R 1000 
2 UDN* R M/MOD ROT R> 2/1 - 
3 >IFA. D+THEN ; 
4 : BRT ( dn-d') UDN* 1000 M/MOD 
5 ROT 4998 > IF 1. D+ THEN ; 
6 : DESCA 0 VARIABLE -2 ALLOT ; 
7 
8 124 LOAD 
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SCR 


von Ponm->0 


# 124 


Ü BUSI LAGER cntd 


DESCR 
DESCR 
DESCA 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 


_) 


# 125 


{NR ) 
(BZ) 
{TX) 
{MF) 
(RL) 
{vVK) 
(LM) 
(vM) 
{DA) 
(EK) 
(c1) 


D 
4 


( BUSI LAGER 
ı NR (NR) 2@ 
: TX (TX) 28 
RL {RL) 2@ 
LM {LM) 28 
: DA (DA) 28@ 


CTX 6 18 CU 
CAL B 18 CU 


: CVM 11 18 CU 
: CLM 10 18 CU 
: CDA 12 18 CU 
: CEK 13 18 CU 


—? 


# 126 


: CNR 4 1B CU 


‚4 
e 


2P2oproanowm-+Do 


entd 
: BZ (BZ) 2@ 


ef) 


ef) 


MF (MF) 2@ 
VK (VK) 28@ 
VM {VM) 2@ 
EK (EK) 2@ 
CBZ 5 18 Cu 
CMF 7 18 CU 
CVK 9 1B CU 


{ INVENTORY INPUT cntd ef) 
VOCABULARY LAGER IMMEDIATE 
LAGER DEFINITIONS 


: .CMD 18 O0 CU 39 
." E)JINGABE EN)DE ME)HR EXJIT S 
P)JEICHERN" 
20 1 CU 
.„" LA BE MW HE MM VKP LAM VKM L 


D EKP" 


—) 


.— 19 1 CU 


SCR # 127 
{ INVENTORY INPUT ef) 
: Mi ." LAGER# 

2 :M2 u BEZEICHNUNG 

3 :M3 „" MWST CODE 

4 :M4 .„" HERSTELLER Ei: 
5 :M5 „" MINDEST MENGE : " 
6 
7 
8 


„0 


 M6 „" VERKAUFSPREIS : 

» M7 .„" LAGERMENGE 2 

: MB .„" VERK. MENGE B 
9 :M9 ." LETZTER ZUGRIFF: 
10 : M10 „" EINKAUFSPREIS : "; 
11: .ST En) 0 DO 46 EMIT 


Ten 


12 LOOP ; 
13 
14 —_) 
45 
Sch # 128 
D L INVENTORY INPUT cntd ef) 
1 
2 
3 : MASK 3>CLA NQ 
4 41CUM1 NR DROP .ST 
5 54CUM2 BZ DROP .ST 
6 641CUM3 TX DROP „ST 
7 71 Cu M4 MF DROP .ST 
8 841CUM5 RL DROP „ST 
98 94CUM6 VK DROP „ST 
10 101 CU M7 LM DROP „ST 
11.11 1 CU MB VM DROP „ST 
12 121 Cu M9 DA DROP .ST 
13 13 1 CU M10 EK DROP .ST 
14 .CMD ; —> 
15 


SCR # 129 
0 { INVENTORY INPUT cntd af) 
1 : CLP ( na) PAD + SWAP 32 FILL ; 
2 : LA NR CLP CNR NR IP WAS ; 

3 : BE BZ CLP CBZ BZ IP WAS ; 
4 2: MW TX CLP CTX TX IP WAS ; 
5 : HE MF CLP CMF MF IP WAS ; 
6 : MM RL CLP CRL RL IP WAS ; 
7 2 VKP VK CLP CVK VK IP WAS ; 
B : LAM LM CLP CLM LM IP WAS ; 
9 : VKM VM CLP CVM VM IP WAS ; 

10 : LD DA CLP CDA DA IP WAS ; 

11: EKP EK CLP CEK EK IP WAS ; 

12 E CNR NR IP CBZ BZ IP CTX 

13 1x IP CMF MF IP CAL AL IP CVK 

14 VK IP CLM LM IP CEK EK IP WAS ; 

15.—> 
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SCR 


oowaun aP@om—0o 


SVOoNnonPpwunm-on 


a.2o0020 
punm>0 


a 
O 
2 


opuoun2@m-+60 


# 130 

{ INVENTORY INPUT cntd af) 

» RMASK 
4 18 CU NR DROP „ST 
5 18 CU BZ DROP .ST 
6 18 CU TX DROP .ST 
7 38 CU MF DROP .ST 
8 18 CU AL DAOP .ST 
9 18 CU VK DROP „ST 
10 18 CU LM DROP „ST 
11 18 CU VM DROP .ST 
12 18 CU DA DROP .ST 
13 18 CU EK DROP .ST ; 


# 131 
{ BUSI LAGER MENUE ef) 
: .MSG 3 10 CU .„' LAGERVERWALTU 
NG" ; 
s .MSG1 3>C .MSG 
CU ." RUN" 
CU „" DATUM TTMMYY" 
Cu ." EINGABE" 
CU .„" ABGANG" 
CU ." ZUGANG" 
CU ." DRUCKER!" 
Cu .„" <#> AUSGABE" 
Cu." NEU" 
Cu ." FIN" 
CU „" INHALT" 
CU ." BACKUP" 
A 


sovowwwmwww«o © 


5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
WAS 


# 132 
{ BUSI LAGER EINGABE ef) 
: NEU .„" WIRKLICH? [U/N)" KEY 


74 = IF 1 FIRST# I UPDATE THEN 
WAS ; 


EINGABE PADC MASK WAS ; 

EN INR IMEM FLUSH .MSG1 ; 
EX FLUSH .MSG1 ; 

ME INR IMEM PADC RMASK WAS ; 
SP #1 IENTRY .MSG1 ; 


SCH # 133 


oowyounm Pwn-0o0 


{ 


BUSI LAGER SUCHE ef) 
{NIL) „" NICHT IN LISTE" ; 
EOL ." ENDE DER LISTE" ; 

NIL { n) DROP 15 1 CU [NIL) 
KEY DROP ; 


: DATUM (DATUM) .MSG1 ; 
: ?DATUM [?DATUM) .MSG1 ; 


FIN FLUSH .MSG1 QUIT ; 
: RUN FLUSH CLARA 1 2 CU ." DATU 


M: zu Na BU 64 C<>C ?DATUM ; 


: BACKUP EDITOR 40 64 DUPLICATE 


65 89 DUPLICATE 90 114 
DUPLICATE 115 139 DUPLICATE 
140 160 DUPLICATE RUN ; 


FORTH —> 
# 134 
( BUSI LAGER AUSGABE ef) 
® .L E ne) PAD + SWAP -TRAILING 
ATYPE ; 
: (DRUCK) MASK CNR NR .L 


CBZ BZ .LCTX TX .LCMF MF .L 
CRL AL .LCVK VK .LCLM LM .L 
CVM VM .LCDA DA .LCEKEK .L; 


: AUSGABE ( n) 3>CLR #SUCH IF 


NIL ELSE @MEM (DRUCK) THEN 
WAS ; 


==? 


# 135 


{ 


BUSI ZUGANG ef) 


: MC1 16 2 CU ; 


LMC 10 18 CU LM DROP .ST ; 


: VMC 11 18 CU VM DROP .ST ; 


DAC 12 18 CU DA DROP .ST ; 
CMB MC1 35 [CL] ; 
(ZUGANG) MC1 


." LAGER #: " PAD 5 EXPECT 
PAD 5 N>Z DROP ; 


(ELM) CMB MC1 ." MENGE " 


„" ZUGANG:" LM IPP ; 


» LM>Z LM PAD + SWAP NDZ ; 
: LME>Z LM PADD + SWAP NDZ ; 
 LM> LM PAC #N LM >R DROP R> 


PAD + SWAP CMOVE ; —> 
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SCR 
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# 136 

( BUSI ZUGANG cntd ar) 
"IM LMC CLM LM .L ; 
LM+ IM>Z LME>Z D+ IM> .LM ; 
VME>Z VM PADD + SWAP N>Z ; 
LM- LM>Z VME>Z DMINUS D+ 
2DUP 0 < IF DROP 2DROP 0 0 ELSE 
DROP THEN LM> „IM ; 

: VM>Z VM PAD + SWAP N>Z ; 

: VM> VM PAC #N VM PAD + 
>R DAOP R> SWAP CMOVE ; 

: DA> DA PAD + SWAP FIRST# 2 + 
ROT ROT CMOVE ; 

: .VM VMC CVM VM .L ; 

: „DA DAC CDA DA .L; 

: VM+ VM>Z WME>Z D+ VM> „VM 


LM- „IM DA> „DA ; —> 
# 137 
{ BUSI ZUGANG cntd ef) 


» ?INL U n-n!f) (ZUGANG) #SUCH 
IF CMB NIL WAS ELSE 
@MEM [DRUCK) THEN ; 
» (ZU) ?INL (ELM) LM+ H 
» ISOK PAD #NR @ (IM) WAS ; 


: ZUGANG (ZU) ISOK ; 
: (EVM) CMB MC1 ." MENGE " 
." ABGANG" VM IPP ; 


: (AB) ?INL (EVM) VM+ ; 

: ABGANG (AB) ISOK ; 

» [N>Z} PAD + SWAP N>Z DROP ; 
® NA>Z NA [NDZ) ; 


: RL>Z RL (NDZ) ; —> 
# 138 
{ BUSI DRUCKER AUSGABE ef) 


: AL? LM>Z AL>Z DO DMINUS D+ 
0< IF 42 EMIT THEN DROP ; 

® [RP) U na-n!} O ROT ROT PAD 
+ DUP  >R + R> DO I C® DUP 

D= IF DROP LEAVE ELSE 32 = IF 

LEAVE ELSE 1 + THEN THEN LOOP ; 


—) 


SCH # 139 


{ BUSI DAUCKAUSGABE cntd ef) 
» (AUS) OH INRPZO #ND 5 


(RADJ) BZ 7 PTEX> TX 28 PTEX> 
MF 30 PTEX> RL>Z D #N 33 4 


{RADJ) VK {N>Z) O #DM 40 7 


{[RADJ) IM>Z #N 49 5 (RADY) 
VM>3Z #N 55 5 (RADJ) DA 61 


PTEX> EK (N>Z) 0 #0DM 67 7 
(RADJ) 15 AL? ; 


: [SHW) 4 H I PAD 4 N>Z DROP 


11 4 .RA BZ 5 PTEX> LM>Z #N 26 5 
12  A{RADY} VK (N>Z) O0 #DM 32 7 
13 (RADJ] ; 
14 
15.—> 
SCR # 140 
0 ( BUSI INHALT 131 EF) 
1 : INHALT DO V I 3>CLR 3 0 Cu 
e  FIRST# @ 1 DO I @MEM (SHW) CR 
93 11V +1 V@ 16 = IF KEY DROP 
4 3>CLR 3 O0 Cu 0 V I THEN LOOP 
5 24 2 CU ." BELEIBIGE TASTE DRU 
6 ECKEN" KEY DROP .MSG1 ; 
7 
8 
9 
SCR # 141 
O0 L BUSI DRUCKAUSGABE cntd ef) 
1 : ..SP D DO 32 EMIT LOOP ; 
2 :3CR 3 0 DO CR LOOP ; 
3 :..D ' DAT 6 N>Z #DA ATYPE ; 
4 
5 : {HEAD) CR 12 .SP ." LAGERLIST 
GE" .D SCR 4 ‚SP ."# "18 
7." DE" 19 .SP ." C" 15." MF" 
8 3 .SP ." RL" 6 .SP ." SP" 6 .SP 
9 .."au" 5 .SPp ." SD" 45 
10 ." DA" 7 .SP ." PR" CR; 
11: HEAD PADC (HEAD) ; 
12 : AUS CR HEAD CR  FIRST# 
13 @ 1 DO I @MEM (AUS) CR LDOP ; 
14 : DRUCKER PRON AUS PROF RUN ; 
15 150 LOAD 
SCR # 150 


D FOATH DEFINITIONS —> 


1 
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184 


SCR 


# 151 


0 [ BUSINESS ADDR INPUT ef) 


1 VOCABULARY ADRESSEN IMMEDIAIF 
2 ADRESSEN DEFINITIONS 


3 
4 
5 
6 
7 
B 
) 
10 
11 
12 
13 
14 
15 


[42] 
O 
2 


oo pwm-0o 


DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCA 
DESCR 
DESCR 
DESCR 
: .MSG 


(vn) Oo, 
{Co} 28 
(ST) 51 
(PLZ) 74 
{ORT} 81 


{NR) 102 


{AM) 107 


8, 
23 
23 


S 


(TEL) 114 , 11, 


(IC) 124 


3 22 CU 


„" AENDERE <BZ> LOESCHEN" 
NTRAG RUN" ; 


." EI 
—) 


# 152 


N ( 
co L 
ORT 
PLZ 
TEL 


nm 


CVN 
CCO 
CPL 
COR 
cc1 
cc2 
s CTE 1 


u. 0 00 ne 


# 153 


VN) 2e ; 

co) 2@; : 
(ORT) 2@ ; 
(PLZ) 28 ; 
(TEL) 2@ ; 


6 4CU; 

BaclU;: 
142 4CU; 
12 12 CU; 
14 4 CU; 
14 10 CU ; 
4 18 CU ; 


BUSINESS ADDR INPUT cntd ef) 


ST (ST) 20; 

: C1 {NR) 2@ ; 
: C2 (AM) 2@ ; 
: IC (IC) 28; 


CST 10 4 CU; 


=, 


( BUSINESS ADDR INPUT cntd ef) 
: (INPUT) #NR @ 3 A CU. 


CVN VN IP 
CCo CO IP CST ST 
COR ORT IP CC1 CA 


CTE TEL IP ; 
ı FNC CVN 28 


Coc 


: TEC 


= 
[2 


CCo 23 
CST 23 


(CL) 
(CL) 
[CL) 


CoR 21 (CL) 
CPL 7 (CL) 
CC1 5 {CL) 
cc2 7 (CL) 
CTE 11 (CL) 


CL FNC cCoc 
CYC NRC AMC TEC 


IP CPL PLZ IP 
IP CC2 C2 IP 


STC CTC 
—? 


sch # 154 


0 — 
1 
SCR # 155 
0 —> 
4 
SCR # 156 
0 L BUSINESS MASK cntd ef) 
1 :.,I0 DO I 1+ 10 MOD 48 + 
2 EMIT LDOP ; 
3 : AR In) 3 CU 38 3 DO .- LOOP ; 
4 2: 2R6 3CU.-632CU6 .—; 
5 :3R ( n) DUP 3 CU .- 27 Cu 
6 11. ; 
7 2: 4R 12 3CU .- 12 11 CU .- 
8 1233 CU5 .—; 
9:5 14 3 CU .- 14 9 CU .- 14 17 


10 Cu .- 14 29 Cu 6 .— 14 37 Cu 


., 
12 :6R 16 4CU5 .I.- 7.1 
13 = 11.28 075 


15 —) 


SCR # 157 
0 L( BUSINESS ADDR INPUT cntd ef) 
1 : MASK CLR 5 AR 2R 7 AR 8 3R 9 
2 AR 10 3R 41 AR AR 13 AR 5R 
3 A51R6R; 

4 : .ADDR CR 35 VN PRINT CA 

5 3S CO PRINT CR 3$ ST PRINT CR 

6 35 PLZ PRINT 15 ORT PRINT CR 

7 38 C1 PRINT 15 C2 PRINT CR 

8  3S TEL PRINT ; 

9 : .MAD CLA MASK CVN VN PRINT 

10 CCO CO PRINT CST ST PRINT 

11. CPL PLZ PRINT COR ORT PRINT 

12 CC1 C1 PRINT CC2 C2 PRINT 

13 CTE TEL PRINT ; 

14 : .MSG 2 10 CU ." ADRESS-VERW 

15 ALTUNG" ; —> 


SCH # 158 

0 ( BUSINESS ADDR INPUT cntd ef) 

1 : .MSG1 CLA .MSG 4 2 CU 

2 ." TERMINAL EINGABE" 5 11 CU 
3." SUCHE <BZ> <NAME>" 6 5 CU 
4 ." <NR> FINDE" 7 11 CU 
5." INHALT" 


185 


6 10 2 CU 

7." DRUCKER LABEL" 11 11 Cii 
8 .„" SUCHE XBZ> <NAME>" 

9 12 11 Cu „" INHALT " 

10 13 5 CU ." <NR> DRUCKE" 


12 152 CU ." RUN" 16 2 CU 
13." NEU " 17 2 CU .„" RECHNUNG" 


14 182 CU ." wAS " QWIT ; —> 
15 
SCR # 159 


R 
O0 ( BUSINESS SEARCH ef) 
1 D VARIABLE WO 

2 : ['] [COMPILE] '!' ; 

3 : (VERGL) ( aa'c-f) 

4 BEGIN ROT DUP C@ >R OVER I = 

5 R> SWAP DUP IF O 

6 ELSE DROP >R ROT DUP C@ 
7 R> = DUP DUP THEN WHILE 
8 2DROP 1+ >R 1+ R> ROT 

9 REPEAT >R 2DROP 2DROP R> ; 

40 : WHAT ['!] 2 - EXECUTE SWAP 

11 DROP DUP wO ! 13 WORD HERE 

12 COUNT ROT PAD + SWAP CMOVE ; 


13— 
14 
15 

SCR # 160 
D L BUSINESS SEARCH cntd ef) 
1 : VERGL PAD WO @ + #NR @ #INDEX 
2 Wo @ + 32 (VERGL) ; 
3 : NILCR .„" NICHT IN LISTE " ; 
4 : EOLCR ." ENDE DER LISTE " ; 
5 : .NAME #NR @ @MEM .ADDR ; 
6 
7  : INPUT MASK PADC .MSG BEGIN 
B FIRST# @ NR | 


9 (INPUT) OK? IF IMEM 

10 THEN MORE? 

11 WHILE CL PADC MC 19 (CL) 
12 REPEAT FLUSH .MSG1 ; 


13 — 
14 
15 
SCR # 161 
0 L( BUSINESS OUTPUT ef) 
: 3? [-f)CNT@3=; 


q 
2 : (CONTENT) {n) 
3 DUP „ @MEM „ADDR 


186 


1 CNT +1 3? IF KEY O CNT I 
CLR 32 = 1 XOR IF „M561 
THEN THEN ; 

: „CONTENT CLR OCNT I 
CR FIRST# @ DUP 1 = 1 XOR 
IF 1 DO I {CONTENT) 
CA LOOP THEN EOL KEY DROP 
.MSG1 ; 


— 
# 162 


( BUSINESS SEARCHING cntd ef) 


: MOVE> PAD PAD 128 + RECLEN 
CMOVE ; 

: <MOVE PAD 128 + PAD RECLEN 
CMOVE ; 

: FOUND MOVE> #NR @ (CONTENT) 
CR <MOVE ; 

: (SEARCH) DO I #NR I VERGL 

IF FOUND DROP 1 THEN LOOP ; 


» SEARCH 0 CNT | PADC CLR 
WHAT O0 FIRST# @ 1 (SEARCH) 
IF EOL ELSE NIL THEN KEY 
DROP .MSG1 ; 

—? 


# 163 
{ BUSINESS DELETING ef) 
— 

# 164 
Ü BUSINESS ENTRY ef) 


ADRESSEN DEFINITIONS 


» (ENTRY) CLR MASK PADC BEGIN 


{INPUT} OK? 1 XOR WHILE 
CL REPEAT IENTRY ; 

: ENTRY (ENTRY) .MSG1 ; 

: (FINDE) [ n) DUP #NR I DUP 
@MEM „MD AACU. ; 

: FINDE (FINDE) .MSG3 WAS ; 


ı .* PAD RECLEN 32 FILL ; 


—? 
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SCR # 165 


oO 


12 
13 


{ 


BUSINESS TRANSLATION ef) 
EINGABE INPUT ; 

EINTRAG ENTRY ; 

INHALT „CONTENT ; 


: SUCHE SEARCH ; 


LOESCHEN .„* IENTRY WAS ; 


—) 


# 
{ 


166 
BUS. MAILING LABEL PRINT ef) 


36 CONSTANT PH 


B CONSTANT PV 


® TABS (Ü nn!) SWAP - D DO SPACE 


LOOP ; 
HTAB { n) PH TABS ; 
{DR) ( naa'-n') + SWAP 


-TRAILING DUP ROT SWAP ATYPE ; 


. 
“ 


L; 


{ 


SPAD ( a) DUP RECLEN 

1 + + SWAP DO I Ce 0= 

IF 32 I CI THEN LOOP ; 

SS 2 SPACES ; 

NCR { n) O0 DO CR LOOP ; 

0Z O0 #N DUP >R ATYPE R> HTAB 


D #N ATYPE ; — 
167 
BUSI. PRINTING cntd ef) 


1Z PAD SPAD VN PAD (DR) 

HTAB VN PADD (DR) DROP ; 

2Z PAD SPAD CO PAD (DR) HTAB 
CO PADD (DR) DROP ; 

3Z PAD SPAD ST PAD (DR) HTAB 
ST PADD (DR) DROP ; 
4Z PAD SPAD PLZ PAD [DR) 10 
TABS 10 ORT PAD (DR) + HTAB 
PLZ PADD (DR) 10 TABS ORT 
PADD (DA) DROP ; 

5Z PAD SPAD C1 PAD (DR) 15 


1 + C2 PAD (DAR) + 15 1 + TEL PAD 


DR) + HTAB C1 PADD {DR) 15 


14 C2 PADD (DR) 15 TEL PADD {DR) 
15 2DROP DROP ; —> 


SCR # 168 

{ BUSI. PRINTING cntd ef) 

: DRUCKE SS 0Z CA SS 1Z CR SS 

2Z CR SS 3ZCRCRAZCR ; 
(MEM@) CNT @ DUP @MEM 
1CNT +1; 

: MEM@ ( a) BEGIN (MEM@) PAD C@ 
42 = DUP IF SWAP DROP THEN 
NOT UNTIL ; 

: FIN? ( -f) CNT @ FIRST# @<; 

: (LABEL) BEGIN FIN? 

10 WHILE MEM@ MOVE> FIN? NOT IF 0 

11 PADC DRUCKE 3 NCR ELSE MEM@ 

12 DRUCKE 3 NCR THEN REPEAT ; 

13 : .LABEL PRON 1 CNT I (LABEL) 

14 PROF .MS61 ; —> 


oossoumnmPwmm->0o 


15 
SCR # 169 

0 L BUSI PRINT SEARCH ef) 
1: @MN #NR @ DUP @MEM 1 CNT +1 ; 
2 : RC RECLEN ; 

3: M> PAD PAD 256 + RC CMOVE ; 

4 . <M PAD 256 + PAD RC CMOVE ; 

5 :CNTO { -f) CNT@ 2 MOD O= ; 

6 : „SUCHE M> @MN 

7 CNTO IF MOVE> ELSE DRUCKE 
8 3 NCR THEN <M ; 

9 : ([SUCH)) DO I #NR I VERGL 

10 IF „SUCHE THEN LOOP ; 

11 
12 : [SUCHE) 1 CNT I PADC PRON 


13 WHAT D FIRST# @ 1 ((SUCH)) 
14 CNTO IF 0 DAUCKE THEN 
15 PROF .MSG1 QUIT ; —> 


SCR # 170 
Ü BUSI „INHALT ef) 


: LL 64 0 DO .- LOOP ; 


: (.INHALT) 1 CNT I BEGIN FIN? 
WHILE MEM@ MOVE> FIN? NOT IF 0 
PADC IDRUCK ELSE MEM@ IDAUCK 
THEN REPEAT ; 

9 : „INHALT PRON (INHALT) 

10 PROF .MSG1 ; 


0 
1 
2 
3 
4 : IDRUCK DRUCKE 5Z CR LLCR ; 
5 
6 
7 
B 


12 : C>L 80 64 C<HC ; 
13 : C>A 320 128 C<YC ; 


15.—> 
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SCR 
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14} 
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2 
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# 171 

Ü BUSI VOCABULARY DRUCKER ef) 
VOCABULARY DRUCKER IMMEDIATE 
DRUCKER DEFINITIONS 

: LABEL .LABEL ; 

: INHALT „INHALT ; 

: SUCHE (SUCHE) ; 

ADRESSEN DEFINITIONS 
VOCABULARY TERMINAL IMMEDIATE 
TERMINAL DEFINITIONS 

: INHALT „CONTENT ; 

: SUCHE SEARCH ; 

ADRESSEN DEFINITIONS 

: RUN CLR NG EMPTY-BUFFERS 
C>A .MSG1 ; 

: NEU 1 FIRST# I UPDATE FLUSH 
.MSG1 ; —> 


# 172 
( BUSI AENDERN ef) 
: (AEND) ['] 2 - EXECUTE CR 
2DUP PAC 
OVER 3 + 19 SWAP CU 
60 EMIT 19 3 CU ?IP ; 


AENDERE (AEND) .MAD OK? 
IF IENTRY THEN WAS ; 


DAUCKE ( n) CNT | PRON 
(LABEL) PROF .MSG1 ; 


O VARIABLE BLNR 


180 LDAD 


# 180 

{ INVOICING BEGINS EF) 
ADRESSEN DEFINITIONS 
37 BLNR I 1 VARIABLE BEST 
30 VARIABLE CNT# 

= W/NI Ef) 2" U /NI" KEY DUP 
74 = OVER 13 = OR OVER 88 = IF 
2eDROP WAS ELSE SWAP DROP THEN ; 
: „CM1 18 0 CU 39 .— 

19 3 CU ." ANSCHRIFT" 

19 18 CU ." BESITELLUNG" 

21 3 CU ." SONJDERARTIKEL" 

21 18 CU ." WEITER" 

23 3 CU ." ENDE" ; 


: IN Un) FIRST# @ SWAP - PAD 
1;3.— 


SCR 


o 


vous pPpun—-on 


aa 
0 


an... 
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# 181 
( BUSI INVOICING cntd ef) 
: JCL En) DUP 16 Cu 9 (CL) 16 
CU ; 
» (ADR) MASK PADC FIRST# @ 
#NR I (INPUT) ; 
: SHOW CLARA 3 2 CU MOVE> 
@MEM .ADDR <MOVE ; 
: ADR BEGIN CL (ADR) OK? IF 
IMEM 1 ELSE 0 THEN UNTIL ; 
: KDNA BEGIN 3 2CU 
.„" KUNDEN-NR :'" (Z>) DROP 
DuUP IF DUP PAD I SHOW OK? IF 1 
ELSE D THEN ELSE DROP ADR PADC 
FLUSH 1 IN 1 THEN UNTIL CLR ; 
—) 


# 182 
{ BUSI INVDICING cntd ef) 


ı „ST O0 DO 46 EMIT LOOP ; 
: ONR 4 2 CU 
." BESTELL-NR "4 16 CU 
10 .ST 4 16 CU 10 2 IP; 
: ACC 5 2 CU 
." BESTELL DATUM:" 5 16 CU 
6 .ST5 16 CU 6 12 IP; 


—) 


# 183 
{ BUSI INVOICING cntd ef) 
: SOND. 8 2 Cu 
." SONDER-RABATT:" 
(J/N) 8 JCL IF 89 19 PCI 20 Z>P 
ELSE 65 C> 19 PCI THEN ; 


: RA 7 2 CU 

“" RABATT U /N) :" 

(Y/N) 7 JCL IF 74 EMIT SOND 
ELSE 78 C> 19 PCI THEN ; 


: TAXE 6 2 CU 
." STEUER ( /N) 
» PAD! PAD BLNR 


CMOVE UPDATE 
— 


" D2C)»$; 
BLOCK B/BUF 


Pre wer) 
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SCH # 184 


0 ( BUSI INVOICING cntd ef: 
4 

2 

3 

4 

5 

6 : VSK 11 2 CU 

7 ." VERSANDKOSTEN:" 25 ZIP ; 

8 


9 : ANSCHRIFT CLAR PADC „CM1 
10 30 CNT# I KDNR 

14 BEGIN ONR ACC TAXE 

12 RA VSK MC OK? UNTIL 

13 PADI CLR .CM WAS ;  —> 


SCH # 185 
0 L BUSI INVOICING cntd ef) 


© .MM 5 2 CU „" BEST. MENGE : " 
6 2 CU ." GEL. MENGE : " 
72CU ." BESTELLNR : "5; 
: > OF In) CN e@e ZIP 
CNT# +1; 
: (ORD) 5 15 CU 2 >OF 6 15 CU 
2 >0F 7 15 CU 2 >OF ; 


(JC) 15 CU 10 {CL) ; 

OFCL 5 (JC) 6 {UC) 7 (UC) ; 
EOB ( n) B/BUF CNT# @ - > IF 
„" KEIN PLATZ MEHR" ELSE 1 
HEN ; 


40...» 


SCR # 186 
( BUSI INVOICING cntd ef) 


0 
1 
2 
3 : BES CLA .CM1 BEGIN 

4  _BEGIN OFCL .MM (OAD) OK? 

5 IF 1 ELSE -6 CNT# +1 0 THEN 

6 UNTIL MORE? OFCL 2 EOB AND NOT 
7 UNTIL -100 PAD CNT# @ + I PADI 
8  .CMI WAS ; ö 

9 : WEITER FLUSH CLR .CM1 1 BLNR 
10 +11 BEST +1 WAS ; 
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SCR # 187 
0 L BUSI INVOICING cntd ef) 


1 

2 :HMSK (Un) DUP 2CU 2 .ST 

3 DuP 5 Cu 20 .ST DUP 26 Cu 1 .ST 
4 28CU7 .ST; 

5 : >BL { n) DUP CNT# @ DUP ROT + 
6 CNT# I IP; 

7: BZ) 20 >BL 

B : TX 1 >BL 

9 : PR) 7 >BL 

10 : HEIN U n) DUP 2 Cu (Z>) DROP 
11 

12 

13 

14 

15 


MINUS CNT# @ PAD + I 

2 CNT# +! DUP 5 CU BZ) 
DUP 26 Cu TX) 28 CU PR); 
_— 


SCR # 188 
0 L BUSI INVOICING cntd af) 
1 ADRESSEN DEFINITIONS 
2 : SON CLR 30 EOB IF 3 BEGIN 1+ 
3 _DUP HMSK DUP HEIN OK? IF 
4 MORE? 30 EOB AND NOT ELSE 
5 -30 CNT# +1 0 
6  THEN UNTIL DROP -100 PAD CNT# 
7 @+ 1 PADI 3>CLR .CM1 WAS 
8 THEN ; 
9 1070 CONSTANT MW1 
10 1140 CONSTANT MW2 
11 : CMWI EN) DUP ' MW2 I 1000 - 
12 27/1000 + ' MW I; 
13 : #EIN ( -D) 13 WORD HERE DUP C@ 
14 + 1+ 32 SWAP CI HERE NUMBER ; 
15 —)> 
SCR # 189 
0 L INVOICING START SCREEN ef) 
1: ?DATE C>L FIRST# 2 + 5 2 Cu 
2 „" DATUM :" 6 NDZ #DA TYPE ; 
3 : DATUM C>L DIN D>S ?DATE WAS ; 
4 : (TX C>L FIRSTE 10 +; 
5 : @X (X e@; 
6 : (.TX) @TX 1000 - 0 #% TYPE ; 
7:.TX62CU ."MWST :" (.TX) ; 
8 : MWST #EIN DROP 1000 + (TX | 
9 UPDATE @TX CMWI .„TX TYPE WAS ; 
10 : I#E C>L FIRSTFB +; 


41 :@I# 18 @; : (.I#) @eI# DEN; 
412 :.1I8 7 2CU ." RECHNE:" 

13 (.I#) ; 

14  : RECHN# #EIN DROP I# | 

15 UPDATE .I# TYPE WAS ; —? 
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SCR 
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# 190 
{ INVOICING START cntd ef) 
: (.INV) 9 2 Cu 
." BSTF NEUER BESTELL-FILE" 
10 2 Cu 
." CONT BESTELL-FILE ERGAENZEN" 
11 2 Cu 
." RESS RECHNUNGEN SCHREIBEN" 
16 2CU ." WAS "; 
: .INV CLR 1 4 CU 
." RECHNUNGEN SCHREIBEN" 
?DATE .TX .I# TYPE (.INV) 
QUIT ; 
: ENDE FLUSH .INV ; 
_) 
#19 
{ BUSI PRINTING ef) 
ADRESSEN DEFINITIONS 
: DPRINT { NABN') >R BLOCK + 
R> + SWAP -TRAILING ATYPE ; 
: DTEX> ( NABN'N") ADJ DPRINT ; 
: 0ST START O ; 
: 1ST START RECLEN ; 
: 1Z VN 1ST 6 DTEX> CO 1ST 
40 DTEX> ; 
: 2Z ST 1ST 6 DTEX> PLZ 15T 


40 DTEX> ORT 1ST 48 DTEX> ; 

: 32 40 ADJ 7 0 318 O DPRINT 
TEL 1ST 50 DTEX> ; 

: 4Z 40 ADJ 6 0 318 16 DPRINT 


c2 1ST 50 DTEX> ; 

—) 

# 192 

( RECHN. SCHREIBEN DRUCKAUSGABE ) 

: „HE 1 VE 1Z ?TERMINAL IF 
KEY DROP THEN 
2 VE 2Z 1 VE 32 1 VE 42 ; 

: @OF BLNA @ BLOCK PADD RECLEN 
CMOVE ; 

» @AD PADD @ @MEM ; 

— 


[42] 
oO 
2 
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# 193 

( RECHN. SCHREIBEN CNTD EF) 
: 5Z VN 6 PTEX> ; 

: 62 CO 6 PTEX> C>L (.I#) 45 


TEX> ' DAT 6 N>Z #DA 64 TEX> ; 
ı 72 ST 6 PTE ; 


: BZ PLZ 6 PTEX> ORT 15 PTEX> ; 
» 9Z PADD 12 + 6 N>Z #DA 45 TEX> 


PADD 2+ 10 57 TE ; 


: „AD @OF C>A @AD 2 VE 5Z 1 VE 


6Z 1 VE 7Z 1 VE 82 1 VE 92 ; 


— 


# 194 


’ 
0 VARIABLE ANZ 0 
DO VARIABLE ZS 2 ALLOT 
DO VARIABLE 1MW 2 
0 VARIABLE 2MW 2 


1. 00m 


BUSI ARTIKEL DRUCKEN ef) 
SA ( a-a') PADD CNT# @ + + ; 
@M U n-n!) SAQ@; 

.OM O @MM O0 #N 11 6 (RADU) ; 
.IM 2 @MM O0 #N 18 4 (RADU) ; 
.BN A @4M DO #N 6 5 (RADU) ; 
„BZ BZ 24 PTEX> ; 

„VP VK PAD + SWAP N>Z #DM 
43 B (RADJ) 

VARIABLE RAB 


ALLOT 
ALLOT 


— 


# 195 


{ 


BUSI ARTIKEL DRUCKEN ef) 


ADRESSEN DEFINITIONS 


.NE U D) #DM 58 7 (RADJ) ; 

.SU ( D) #DM 65 B (RADJ) ; 

P>Z PAD 30 + B NZ ; 

MES ( NN') C>A SWAP 32 * START 
1 - BLOCK DUP C@ >R 1+ + R> 
ROT TEX> ; 

MES1 1 23 MES 1 VE 2 23 MES ; 
MES2 3 23 MES ; 


ı ?LM ( -f}) 2 @MM D= NOT ; 
» .PD ?LM IF 1 .BZ .VP ELSE D 


MES1 THEN ; 
?TX ( -F) PADD 22 + C@ 74 =; 


— 
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SCR # 196 
0 L( BUSI SUMMIERUNG af! 
: #LL ( -d) LM PAD + SWAP N>Z ; 
2 #VV U -d) VM PAD + SWAP N>Z ; 
: NLL ( d-d') #LL 2 @MM 0 
DMINUS D+ 2DUP D< IF DROP 2DAOP 
0. ELSE DROP THEN ; 
= NVV { d-d!) #VV 2 @MM D D+ ; 
2 >LL NLL LM PAC #N LM SWAP 
DROP PAD + SWAP CMOVE ; 
» >DA ' DAT DA PAD + SWAP 
10 CMOVE ; 
11: >VV NVV VM PAC #N VM SWAP 
12 DROP PAD + SWAP CMDVE ; 
13 : >DD C>L PAD .#NR @ #INDEX 
14 RECLEN CMOVE UPDATE ; 


ovouuoaonawmn — 


15 : LCOR >LL >VV >DA >DD ; —> 
SCR # 197 
0 ( BUSI PRINTING cntd ef) 
4 : @PD PADD CNT#E @ +4 + @C>L 
® #SUCH IF MES2 0 ELSE @MEM .PD 1 
3 THEN ; 
4 : (?MW) { -F) PAD 24 +C@ 49 =; 
5 : ?MW U -N) (?MW) IF Mw1 ELSE 
6 Mw2 THEN ; 
7 : NETB [ -D) P>Z ?MW NET 2DUP 
B .NE; 
9 : SuM [ D-D') 2 @MM DUP ANZ +1 
10 UDN* 2DUP „SU ; 
11 : ISUM ( D) [?Mw) IF 1MW 2+1 
12 ELSE 2MW 2+1 THEN ; 
43. — 
14 
15 
SCR # 198 


BUSI AUSGABE SONDEREIN. ef) 
SP>Z 23 SA 7 NZ; 

.SM D @MM ABS O #N 18 4 
[RADJ) ; 

.SB 2 SA 20 24 TEX> ; 

.SP 23 SA 7 N>Z #DM 49 B 
[RADU) ; 
?SMW ( -F) 22 SA C@ 49 = ; 
SNET ( -D) SP>Z ?SMw IF MW1 
ELSE Mw2 THEN NET 2DUP .NE ; 
10 : SSUM ( D-D') D @MM ABS DUP 
11 ANZ +1 UDN* 2DUP .SU ; 
12 : ISSUM ( D) ?SMW IF 1MW ELSE 
13 2MW THEN O+1 ; 
14 — 


0m 
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— 


# 199 

( ZEILE DRUCKEN EF) 

: (.MW) [ F) IF 49 ELSE 50 THEN 
75 ADJ EMIT ; 


MW (?MW) [MW ; 

» >Z .BN .OM .IM @PD AND IF 

NETB SUM ISUM .MW LCOR THEN ; 

: .SMW ?SMW (.MW) ; 

ı »>5Z .SM .SB „SP SNET SSUM 
ISSUM .SMW ; 


ı „2S Z5S 2@ „SU ; 


: .RA 48 ADJ RAB @ D #N ATYPE 
80 BLOCK 12 + 10 ATYPE .ZS ; 


—> 


# 200 

[ BUSI RECHNUNG RABATT ef) 

ADRESSEN DEFINITIONS 

: ARA ANZ @ DUP 10 > IF 40 RAB | 

DROP ELSE 5 > IF 33 RAB | 
ELSE 25 RAB | THEN THEN ; 

: (R) U D-D') RAB @ UDN* 100 
M/MOD ROT 49 > IF 1. D+ 
THEN 2DUP ZS 2+1 ; 

: [RA) 2@ 2DUP {R} DMINUS D+ ; 

: 1RAB 1MW (RA) 1MW 21 ; 

ı PRAB 2MW (RA) 2MW 21 ; 

: ?RA PADD 19 + C@ DUP 78 = NOT 

IF 65 = IF ARA ELSE PADD 20 + @ 

RAB I THEN 0. ZS 21 1RAB 2RAB 

„RA ELSE DROP THEN ; 

— 


# 201 
—) 


# 202 

( SUMMENZEILEN EF) 

ADRESSEN DEFINITIONS 

: MW. 1000 - D #% 57 5 [RADU) ; 

» 1EZ ?TX IF 1MW 2@ Mw1 BAT 2DUP 
1MW 2@ DMINUS D+ #DM 47 8 

(RADJ) MW1 MW. 1MW 2@ 2SWAP 1MW 

el ELSE 1MW 2@ THEN #DM 64 8 
(RADU) ; 


» BEZ ?TX IF 2MW 2@ Mw2 BRT 2DUP 


197 


198 


SCA 


oOooNnuou pPwm 


EMW 2@ DMINUS D+ #DM 47 8 
(RADU) MW2 MW. 2MW 2@ 2SWAP 2MW 
21 ELSE 2MW 2@ THEN #DM 64 B 
(RADJ] ; 
—) 


# 209 
{ SUMMENZEILEN EF) 


: 3EZ PADD 25 + @ 0 2DUP 1MW 2+1 
?TX IF 2DUP 
2DUP MW1 NET DMINUS D+ #DM 47 
B (RADJ) Mw1 MW. MW1 NET THEN 
#DM 64 8 (RADJ) ; 


: 4EZ 1MW 2@ 2MW 2@ D+ #DM 
58 8 (RADUJ) ; 
—) 


BANKVERBINDUNGEN DRUCKEN EF) 
5EZ START 1+ BLOCK 45 0 TEX> ; 
: 6EZ START 1+ BLOCK RECLEN + 
45 0 TEX> ; 
: SU. 42 V @ - VE 1EZ 2 VE 2EZ 
2 VE 5EZ 3EZ 1 VE 6EZ 4EZ ; 


# 204 
( 


: APZ VN O0 PTEX ; 

» EPZ ST DO PTEX> ; 

» 9PZ PLZ 0 PTEX> ORT B PTEX> ; 

» 4PZ VN 30 PTEX> ; 

: 5PZ CO 30 PTEX> ; 

» 6PZ ST 30 PTEX ; 

: 7PZ PLZ 30 PTEX> ORT 3B 
PTEX ; 

— 


# 205 
[ AUFKLEBER DRUCKEN EF) 
: AU. C>A 1 @MEM 3 VE 1PZ 2 VE 

2PZ 2 VE 3PZ PADD @ @MEM 

62 V@- VE APZ 

@ VE 5PZ 2 VE 6PZ 4 VE 7PZ ; 


=) 


SCR 
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# 206 
{ BUSI RECHN.SCHREIBEN cndt ef) 


: IRAS 0. ZS 21 OD ANZ | 
0. 1MW 21 D. 2MW 21 
30 CNT# I OH I OV ICIA @F ; 


» RS IRS .HE 1 VE .AD 5 VE 
BEGIN PADD 
CNT# @ + @ DUP -100 = NOT 
WHILE 0< IF >SZ 30 ELSE >Z 6 
THEN CNT# +1 1 VE 
REPEAT DROP ?RA C>A SU. AU. ; 


—) 


# 207 
{ BUSI PRINTING END ef) 
s IRE RS 


@I# 1+ I# I UPDATE FLUSH 
5Ve-Vv; 


: BSTF 37 BLNR I 1 BEST | 
C>A CLR .CM1 WAS ; 


CONT 1 BLNR +1 3 BEST +I 

C>A CLR .CM1 WAS ; 

RESS 37 BLNR | PRON BEST @ 0 
00 ARE 1 BLNAR +1 LOOP 

PROF .INV ; 


» RECHNUNG FLUSH C>L D<S NO 
C>A .INV ; ;S 


# 208 

Ü ALLNEW FORTH EF) 

FORTH DEFINITIONS 

» ALLNEW EMPTY-BUFFERS CLR 3 2 
CU .„" PROGRAMM-DISKETTE ENTNEH 

MEN" 4 2 CU .„" DATA INIT DISK EI 

NLEGEN" 5 2 CU .„" RETURN TASTE D 

AUECKEN" KEY DROP 80 BLOCK 

UPDATE DROP 319 BLOCK UPDATE 

DROP 318 BLOCK UPDATE DROP 

10 2 Cu ." FORMATIERTE DISKETTE 
EINLEGEN" 11 2 CU .„" RETURN TAS 

TE DAUECKEN" KEY DROP 

ADRESSEN C>A 1 FIRST# | UPDATE 

ADRESSEN C>L 1 FIRST# | UPDATE 


FORTH FLUSH ADRESSEN RUN ; —? 


199 


SCR # 209 
{ BUSI STARTUP ef) 


: STARTUP CLR 3 2 CU 

." BUSIPACK " 5 2 Cu 

." (C) 1984 BY ING W. HOFACKER 
GMBH" 

74CU ." ALLNEW" 

8 A CU .„" ADRESSEN RUN " 

9 A CU ." LAGER RUN" 
10 2 CU ." DATEN DISKETTE EINLEG 
10 EN " 
11 ADRESSEN C>A FORTH WAS ; 


vovouaonPpPw@nmn—_0 
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Alle Programme aus 
diesem Buche 
auf Diskette 


Für denjenigen, der nicht die Zeit und Muse hat, die Programme einzugeben, halten 
wir eine Diskette bereit, die alle Programme aus diesem Buche enthalten. 


Wir senden Ihnen-diese gerne gegen Vorauszahlung von DM 299,- incl. Versand 
und Verpackung zu. 


Verwenden Sie dieses Blatt als Bestellschein. 


OD Ich bestelle die Diskette, voll mit Programmen zum Buch #200 zu DM 299,— 
incl. Porto und Verpackung. Für folgenden Rechnertyp: 
D Commodore 64 
OD ATARI 800/800XL (Bitte unbedingt ankreuzen !) 
O0 APPLEII,IIe 48K 
Dazu wird ein Fig-FORTH für den entsprechenden Rechnertyp benötigt (siehe 
auch folgende Seite) ! 


D Den Betrag von DM 299,—- habe ich heute auf Ihr Postscheck-Kto. München 
15994 -807 überwiesen. 


D Bitte liefern Sie per Nachnahme. Hier kommen noch NN Gebühren in Höhe von 
6,50 DM hinzu. 


Datum Unterschrift (f. Jugendliche unter 18 Jahr der Erziehungsberechtigte) 
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Notizen 
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ELCOMP FORTH ist eine erweiterte Implement 


FORTH 


ierung der Fig-FORTH 


Release 1.1. Der Befehlsumfang des Kernels entspricht dem Worte- 


vorrat, wie er in der FORTH Encyclopedia von 


M.Derik und d. Baker 


angegeben ist. Für einzelne Rechner sind Utilities, Grafik, usw. als Text- 
felder vorhanden. Zum Erstellen von Textfeldern steht ein zeichen- 


orientierter Editor zur Verfügung. 


ELCOMP FORTH für APPLE Best.-Nr 
Utilities, Editor, 
Hi- und Lo RES Grafik 


ELCOMP FORTH für ATARI Best.-Nr 
Utilities, Editor, Grafik, 
Ton, Player Missle 


Floating Point (nur für ATARI) 
Best.-Nr 


ELCOMP FORTH für Commodore 64 Best.-Nr 
Utilities, Editor, 
Assembler 


FORTH für TRSS80/GENIE Best.-Nr 
Editor, Assembler 


. 6155 129,— DM 


. 7055 199,— DM 


. 7230 98,— DM 


. 4960 299,— DM 


. 5026 199,— DM 


In allen FORTH-Versionen ist das FORTH Handbuch Nr. 137 in- 


begriffen. 
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E. Fioegel 


SCHh 2 
( ADRESSEN 
64 CONS 


; EIKE PAD + SWAP EXPECT r 
» (EINGABE! HOME CR FAb RECLEN J2 FILL 
“ wrwäng ® UGENAME EIN © 


BSR 


RZ TC er] 
" DUP Ch Ik OVER I = R> SmAP 
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DROP >A HOT DUr CO. ID = 
" WHILE 2DROP }ı 
eisen mie - s. _DENP R> : 
ı LEER PAD KECLEN 32 FILR ı 
u ib ') 2 - EXFCUTE SWAP DROP DUP Wu ı 
J DERTTE "AD + SWAP 
vd 
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FORTH Handbuch 


von E. Flögel 


Erstmals wurde hier in deutscher 
Sprache, in einem umfassenden Werk, 
die Grundlagen dieses so leistungs- 
fähigen Interpreters/Compilers für den 
Einsteiger verständlich dargestellt. 
Viele Beispiele erleichtern das Ver- 
ständnis und die Anwendung, welche 
sich von der einfachen Steuerung bis 
hin zu Adressen- u. Dateiverwaltungen 
erstreckt. 

FORTH gibt es heute für fast alle 
Personalcomputer: ATARI, APPLE, 
Commodore 64, GENIE,TRS-80, usw. 
FORTH-Programme sind transpor- 
tabel ! (189 Seiten) 

Best.-Nr. 137 49,- DM 


FORTH on the ATARI — 
Learning by Using 
von E.Flögel 


Dies ist das erste und zur Zeit einzige 
Buch auf dem Weltmarkt, welches die 
Programmiersprache FORTH speziell 
auf Ihren ATARI-Personalcomputer 
abhandelt. Einführung, Grundelemente 
v. FORTH, Strukturen, Programm- 
beispiele, Ton und Grafik, Ein- und 
Ausgabeprogrammierung und eine 
komplette Adressenverwaltung in 
FORTH. (118 Seiten, englisch) 

Best.-Nr. 170 29,80 DM 


Leercassetten für 


Microcomputer 

C-10 

Die ideale Cassettenlänge für Ihren Personalcomputer! 
Praktisch — handlich und betriebssicher. 


Kassetten mit nur 10 Minuten Spieldauer (2 x 5 Minuten) haben sich zur 
Aufzeichnung von Daten im Microcomputerbereich bestens bewährt. 


Vorteile der C-10 Computer Cassette vom HOFACKER Verlag: 


weniger Bandsalat 

kurze Rückspulzeiten 

schnelles Auffinden von Programmen 

bessere Gleichlaufeigenschaften 

einfache Programmverwaltung 

extrem hoch aussteuerbares Bandmaterial (AGFA) 


Die C-10 HOFACKER Datencassette wird seit 1978 speziell für Microcomputer- 
anwender produziert. Die Cassetten bieten ein Höchstmaß an Betriebssicherheit 
bezüglich fehlerfreier Aufnahme und Wiedergabe. 


Diese Cassette eignet sich für alle heute am Markt befindlichen Personalcom- 
puter, wie z.B.: 

Commodore 64 SHARP TRS-80 

VC-20 APPLE II GENIE 

ATARI 600/800XL SINCLAIR TI 99/4A 

ATARI 400/800 IBM PC OSBORNE 


Noch heute bestellen: Best.-Nr. 8089 — 1 Cassette 3,50 DM 
Best.-Nr. 8100 — 10 Cassetten 29,80 DM 
Best.-Nr. 8096 — 100 Cassetten 248,00 DM 


Toleton 
(0 80 24) 73 31 


Talın 
620973 
Ing. W. Hofacker GmbH :° Tegernseer Str. 18 ' D-81560 Hulzkırchan 


Weitere interessante Bücher von Hofacker: 


BÜCHER in deutscher Sprache 
aus dem HOFACKER-Verlag 

Transistor Berechnungs- und Bauanleitungsbuch — 1. 
Transistor Berechnungs- und Bauanleitungsbuch — 2. 
Elektronik im Auto 
IC-Handbuch, TTL, CMOS, Linear 
IC Datenbuch, TTL, CMOS, Linear 
IC-Schaltungen, TTL, CMOS, Linear 
Elektronik Schaltungen 
IC-Bauanleitungs-Handbuch . 
Feldeffektransistoren 
Elektronik und Radio .. 
IC-NF Verstärker (i. V.) 
Beispiele integrierter Schaltungen (BIS) 
HEH, Hobby Elektronik Handbuch 
Optoelektronik Handbuch 
CMOS Teil 1, Einführung, Entwurf, Schaltbeispiel 
CMOS Teil 2, Entwurf und Schaltbeispiele 
CMOS Teil 3, Entwurf und Schaltbeispiele ... . 
IC-Experimentier Handbuch 
Operationsverstärker 
Digitaltechnik Grundkurs 
Mikroprozessoren, Eigenschaften und Aufbau .. 
Elektronik Grundkurs, Kurzlehrgang Elektronik 
Progr. in Maschinensprache mit Z80, II 
65000 Microcomputer Einführung (i.V.) .... 
Mikroprozessor, Teil 2 
BASIC-M Anwender-HB f. 6800/09/68000 (Motorola). 
Lexikon + Wörterbuch f. Elektr. u. Mikroprozessor. . 
Mikrocomputer Datenbuch 
Floppy Disk Selbstbau-Handbuch (i.V.).. 
57 Programme in BASIC 
ATARI BASIC, für Selbststudium und Praxis. . 
Microcomputer Programmierbeispiele 
TINY-BASIC Handbuch 
Der freundliche Computer 
Das große Druckerbuch (i.V.). ..... 
Statistik in BASIC (i.V.)...... ai 
Oszillographen-Handbuch 
Portable Computer Handbuch (i.V.) ........ + - 
Rund um den Spectrum (Progr., Tips und Tricks)... . 
6502 Microcomputer Programmierung 
Programmierhandbuch für PET 
Programmieren mit TRS-80 (GENIE).... 
PASCAL -Programmier-Handbuch 
BASIC-Programmier-Handbuch (mit BASIC-Kurs) .. 
Der Microcomputer im Kleinbetrieb 
6809 Programmier Handbuch (i.V.)...... - 
Einführung 16-Bit Microcomputer 
Programmieren in Maschinensprache mit dem 6502. . 
Programmieren in Maschinensprache (Z80), | 
Anwenderprogramme für TRS80 und GENIE .. 
Microsoft BASIC-Handbuch 
BASIC für Fortgeschrittene 
IEC-Bus Handbuch 5% 
Progr. in Maschinensprache mit Commodore-64 ... . 
Einführung i. d. Microcomputer-Progr. mit 6800... .. 


Programmierbeispiele für CBM 
CP/M-Handbuch ee 
Handbuch für MS/DOS (1. V.). 2.2... 2reere00. 29,80 
Funktionsanalyse (i.V.) 
FORTH - Grundlagen, Einführung, Beispiele 
BASIC für blutige Laien (speziell f. TRS-80, Genie). . 
Progr. i. BASIC u. Maschinencode mit dem ZX81... 
Programme f. VC-20 (Spiele, Utilities, Erweiterungen) 
35 Programme für den ZX81 
33 Programme für den ZX-Spectrum 
64 Programme für den Commodore-64 
Hardware-Erweiterungen für den Commodore-64 ... 
Beherrschen Sie Ihren Commodore-64 
Programmierhandbuch für SHARP 
Programme für TI 99/4A N 
Astrologie auf dem ATARI 800 
Mehr als 29 Programme für den Commodore 64... .. 
Das große Spielebuch für ATARI 600XL/800XL ... 
FORTH-Anwendungen 

8029 Z-80 Assembler-Handbuch 


BÜCHER in englischer Sprache 
von ELCOMP Publishing, Inc., Los Angeles, CA. 
150 Care and Feeding of the Commodore PET 
151 8K Microsoft BASIC Reference Manual 
152 Expansion Handbook for 6502 and 6800 
154 Complex Sound Generation Using the SN76477 
156 Small Business Programs 
The Second Book of Ohio Scientific 
The Third Book of Ohio Scientific 
The Fourth Book of Ohio Scientific 
The Fifth Book of Ohio Scientific 
ATARI Games in BASIC 
The Peripheral Handbook (i.V.) ..... ++ -- 220. 29,80 
ATARI-BASIC Learning by Using 
Programming in 6502 Machinelanguage PET/CBM .. 
9 How the Progr. your ATARI in 6502 Machinelanguage 
FORTH on the ATARI — Learning by Using 
See the Future with your ATARI (Astrology) . . 
Hackerbook | (Tricks + Tips for your ATARI).. 
PD-Program Descriptions (ATARI) 
ZX-81/TIMEX Progr. i. BASIC a. Machine Lang. ... 
Programs + Tricks for VIC's 
CP/M — MBASIC and the OSBORNE 
The APPLE in Your Hand 
The Great Book of Games Vol. | - Games f. the C-64. 
More on the Sixtyfour (Commodore-64) 
How to Progr. your C-64 i. 6502/10 Machinelang.. . . 
Commodore 64 Tune-up 
Small Business Programs for the Commodore 64... . 
HOFACKER Verlag produziert und vertriebt neben einer 
sehr großen Auswahl an Fachbüchern für Elektronik und Micro- 
computertechnik noch: 
— Leerplatinen und Bauanleitungen für Zusatzeinrichtungen 
für Ihren Personalcomputer, sowie 
— Programme (Software) und Leercassetten (C-10) für die 
bedeutenden Personalcomputer. 
(i. V. bedeutet: Buch ist in Vorbereitung) 


HOLZKIRCHEN SINGAPORE LOS ANGELES 


